cad数门窗的lisp_一个画中空玻璃的源码同时求加个功能 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...

我有加了几根线，怎么运行不下去了，怎么要改？

(defun c:blhy ()

(command "undo" "group")

(setvar "osmode" 255)

(setvar "cmdecho" 0)

(setq p1 (getpoint "\n输入6+12+6中空玻璃及隐框横梁第一点："))

(while

(setq p2 (getpoint p1 "\n输入6+12+6中空玻璃及隐框横梁下一点：")) ang (angle p1 p2)  p2 (polar p2 (+ pi ang) 80))

(setvar "osmode" 0)

(command "line" p1 p2 "")

(setq ang (angle p1 p2))

(setq ang1 (+ ang (* pi 0.5)))

(setq ec (entlast))

(command "change" ec "" "p" "c" 2 "")

(command "line" (polar p1 ang1 24) (polar p2 ang1 24) "")

(setq ec1 (entlast))

(command "change" ec1 "" "p" "c" 2 "")

(command "line" (polar p1 ang1 1) (polar p2 ang1 1) "")

(setq ec2 (entlast))

(command "change" ec2 "" "p" "c" 8 "")

(command "line" (polar p1 ang1 5) (polar p2 ang1 5) "")

(setq ec4 (entlast))

(command "change" ec4 "" "p" "c" 8 "")

(command "line" (polar p1 ang1 6) (polar p2 ang1 6) "")

(setq ec5 (entlast))

(command "change" ec5 "" "p" "c" 2 "")

(command "line" (polar p1 ang1 18) (polar p2 ang1 18) "")

(setq ec6 (entlast))

(command "change" ec6 "" "p" "c" 2 "")

(command "line" (polar p1 ang1 19) (polar p2 ang1 19) "")

(setq ec7 (entlast))

(command "change" ec7 "" "p" "c"  8 "")

(command "line" (polar p1 ang1 139) (polar p2 ang1 139) "")

(setq ec8 (entlast))

(command "change" ec8 "" "p" "c" 8 "ltype" "DASHED2""")

(command "line" (polar p1 ang1 142) (polar p2 ang1 142) "")

(setq ec9 (entlast))

(command "change" ec9 "" "p" "c" 2 "")

(command "line" (polar p1 ang1 52) (polar p2 ang1 52) "")

(setq ec10 (entlast))

(command "change" ec10 "" "p" "c" 2 "")

(command "line" (polar p1 ang1 55) (polar p2 ang1 55) "")

(setq ec3 (entlast))

(command "change" ec3 "" "p" "c" 8 "ltype" "DASHED2" "")

(command "line" (polar p1 ang1 23) (polar p2 ang1 23) "")

(setq ec3 (entlast))

(command "change" ec3 "" "p" "c" 8 "")

(command  "INSERT" "C:\Program Files\AutoCAD 2012 - Simplified Chinese\Support\dwg\\隐框立柱a.dwg" (polar p2 ang 80) "" "" (polar p2 ang 200))

(setq p1 (polar p2 ang 160))

(setvar "osmode" 255)

(command "undo" "end")

)

(princ)                                ;静默退出

)