摘 要: | 1.确定图幅及绘图比例 使用普通绘图命令确定图幅及绘图比例,并绘出图框,插入图签栏,然后填上图签栏中各栏内容需要很多步骤。利用 AutoLISP语言编制一段专用程序,就很容易完成。(defun c:htk() ;;绘图框 (setvar "CMDECHO" 0) (setvar "AXISMODE" 1) (setq name (getstring "n请输入图纸名称 :")) (command "save"name) ; ;以该名称称为图形文件名存盘。 (command "vslide"gysldjjtkdim") (menucmd "S=CJTK1") (setq lx(getdist "n请输入图纸横向 (X)尺寸 (单位 mm):")) (setq ly(getd…
|