社区 › AutoLISP/Visual LISP 编程技术 › 命令嵌套深度不能超过四层

yanshengjiang 发表于 2018-11-9 17:36:10

(command "DJF3" "0.2" p1 p2 "")    lisp里面调用cass命令就会这样

xyp1964 发表于 2018-11-9 20:30:41

(defun c:tt ()
(while (and (setq p1 (getpoint "\n指定第一点: "))
              (setq p2 (getpoint p1 "\n指定第二点: "))
              (setq p3 (getpoint p2 "\n指定第三点: "))
       )
    (command "pline" p1 "w" "0.2" "" p2 "")
    (command "offset" "4" (entlast) p3 "")
    (setq s1 (entlast)
          p3 (vlax-curve-getEndPoint s1)
          p4 (vlax-curve-getStartPoint s1)
          pt (inters p1 p3 p2 p4)
    )
    (entmake (list '(0 . "TEXT")
                   (cons 1 "道路")
                   (cons 10 pt)
                   (cons 40 1.5)
                   (cons 41 1)
                   (cons 7 "HZDX")
                   (cons 8 "TK")
                   (cons 71 0)
                   (cons 72 1)
                   (cons 73 2)
                   (cons 11 pt)
             )
    )
)
(princ)
)

查看完整版本: 命令嵌套深度不能超过四层