[求助]：为何不能打断PT1 PT2之间的线段

szx025 · 发表于 2008-4-1 21:01:14

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

;;;--------墙线----------

(defun C:WLL (/ L1 L2 PT1 PT2 PT3 PT4 KU)

(if (setq L1 (getpoint "\nPick point:"))
(progn
      (setq OLD_CMDECHO (getvar "CMDECHO"))
      (setvar "CMDECHO" 0)
      (setq CL (getvar "clayer"))
         (setvar "EDGEMODE" 1)
      (command "-layer" "m" "WALL" "C" "31" "" "")
      ;;PLINEWID 存储多段线的缺省宽度
      (setvar "PLINEWID" 60)
      (while (setq L2 (getpoint L1 "\nPick point:"))

(setq KU (angle L1 L2))
(setq PT1 (polar L1 (+ KU (* 0.5 pi)) 120))
(setq PT2 (polar L1 (+ KU (* 1.5 pi)) 120))
(setq PT3 (polar L2 (+ KU (* 0.5 pi)) 120))
(setq PT4 (polar L2 (+ KU (* 1.5 pi)) 120))

;;绘制
(command "_.Pline" "non" PT1 "non" PT3 "")
(command "_.Pline" "non" PT2 "non" PT4 "")
            ;;打断
(command "break" "non" L1 "f" "non" PT1 "non" PT2)
(command "break" "non" L2 "f" "non" PT3 "non" PT4)
      )

      (setvar "clayer" CL)
      (setvar "CMDECHO" OLD_CMDECHO)
)
)
(princ)
)

图中原有二条平行线。执行上面的程序，L1 L2分别在二条平行线上，程序执行后，为何不能打断PT1 PT2之间的线段

TYEEXDD · 发表于 2008-4-1 21:20:56

break好像是不能这样联系执行的？

szx025 · 发表于 2008-4-1 21:44:48

那应如何执行？

ljttjl · 发表于 2008-4-3 20:20:30

联系ljttjl@tom.com,帮您解决

账号		自动登录	找回密码
密码			立即注册

[求助] [求助]：为何不能打断PT1 PT2之间的线段

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子