动态画直线 lisp程序

pengl86

• ;画直线（45度）
  
• (defun C:XX ( / gr lst pt)
  
•   (setq lst (entmakex  ;生成直线，并赋值图元名
  
•               (list
  
•                 '(0 . "LINE")
  
•                  (cons 8 (getvar "CLAYER"));提取图层
  
•                  (cons 10 (setq pt (getpoint "\n起点")));起点
  
•                  (cons 11 pt);终点
  
•                )
  
•              )
  
•   )
  
•   (princ "\n到点")
  
•   (while (and (setq gr (grread 5)) (= (car gr) 5));为坐标时，跟踪坐标
  
•    (kx-put-dxf  lst 11 (polar pt KX-pi-YS (distance pt (cadr gr))));动态坐标替换直线端点
  
•   )
  
• (PRINC)
  
• )
  
  

wangsr

CAD2007出错了