画矩形（带中心线）程序，延伸部分的长度有时不成功

王航 · 发表于 2013-5-30 10:36:41

这个画矩形（带中心线）的小程序有点问题，我的意图是，中心线延伸出矩形以外，延伸部分的长度为矩形高度的1/10，但很多时候都不能成功，请高手指点，非常感谢！

(defun c:TTT(/ pa pb pc pd ww hh mp1 mp2 mp3 mp4)
(VL-LOAD-COM)
(setvar "cmdecho" 0)
(setq pa (getpoint "选择插入点:"))
(setq ww (getdist pa "\n 长度:"))
(setq hh (getdist pa "\n 宽度:"))
(setq pb (polar pa 0 ww))
(setq pc (polar pb (/ pi 2) hh))
(setq pd (polar pc pi ww))
(command "pline" pa pb pc pd "c")
(setq mp1 (polar pa 0 (/ ww 2)))
(setq mp2 (polar pb (/ pi 2) (/ hh 2)))
(setq mp3 (polar pd 0 (/ ww 2)))
(setq mp4 (polar pa (/ pi 2) (/ hh 2)))
(setq p1 (polar mp1 (* pi 1.5) (/ hh 10)))
(setq p2 (polar mp2 0 (/ hh 10)))
(setq p3 (polar mp3 (/ pi 2) (/ hh 10)))
(setq p4 (polar mp4 pi (/ hh 10)))
(command "change" "l" "" "p" "la" "0" "")
(command "line" p1 p3 "")
(command "change" "l" "" "p" "la" "点划线" "")
(command "line" p2 p4 "")
(command "change" "l" "" "p" "la" "点划线" "")
(setvar "cmdecho" 1)
(princ)
)

(defun c:TTT(/ pa pb pc pd ww hh mp1 mp2 mp3 mp4) 
(VL-LOAD-COM) 
  (setvar "cmdecho" 0) 
  (setq pa (getpoint "选择插入点:")) 
  (setq ww (getdist pa "\n 长度:")) 
  (setq hh (getdist pa "\n 宽度:")) 
  (setq pb (polar pa 0 ww)) 
  (setq pc (polar pb (/ pi 2) hh)) 
  (setq pd (polar pc pi ww)) 
  (command "pline" pa pb pc pd "c") 
  (setq mp1 (polar pa 0  (/ ww 2))) 
  (setq mp2 (polar pb (/ pi 2) (/ hh 2))) 
  (setq mp3 (polar pd 0 (/ ww 2))) 
  (setq mp4 (polar pa (/ pi 2) (/ hh 2))) 
  (setq p1 (polar mp1 (* pi 1.5) (/ hh 10))) 
  (setq p2 (polar mp2 0 (/ hh 10))) 
  (setq p3 (polar mp3 (/ pi 2) (/ hh 10))) 
  (setq p4 (polar mp4 pi (/ hh 10))) 
  (command "change" "l" "" "p" "la" "0" "") 
  (command "line" p1 p3 "") 
  (command "change" "l" "" "p" "la" "点划线" "") 
  (command "line" p2 p4 "") 
  (command "change" "l" "" "p" "la" "点划线" "") 
  (setvar "cmdecho" 1) 
  (princ) 
)

Gu_xl · 发表于 2013-5-30 10:40:56

没看你的代码，先关闭捕捉再试试！

王航 · 发表于 2013-5-30 13:09:37

Gu_xl 发表于 2013-5-30 10:40
没看你的代码，先关闭捕捉再试试！

关闭捕捉可以了！谢谢！怎样才能不关闭捕捉也能实现呢？

Gu_xl · 发表于 2013-5-30 13:13:29

本帖最后由 Gu_xl 于 2013-5-30 13:14 编辑

王航发表于 2013-5-30 13:09
关闭捕捉可以了！谢谢！怎样才能不关闭捕捉也能实现呢？

(command "pline" “_non” pa “_non” pb “_non” pc “_non” pd "c")
...
(command "line"“_non” p1“_non” p3 "")
...
其他类似

王航 · 发表于 2013-5-30 13:41:17

本帖最后由王航于 2013-5-30 13:43 编辑

Gu_xl 发表于 2013-5-30 13:13
(command "pline" “_non” pa “_non” pb “_non” pc “_non” pd "c")
...
(command "line"“_non” ...

还是不行，烦劳再给指点一下，谢谢！

(defun c:TTT(/ pa pb pc pd ww hh mp1 mp2 mp3 mp4)
(VL-LOAD-COM)
(setvar "cmdecho" 0)
(setq pa (getpoint "选择插入点:"))
(setq ww (getdist pa "\n 长度:"))
(setq hh (getdist pa "\n 宽度:"))
(setq pb (polar pa 0 ww))
(setq pc (polar pb (/ pi 2) hh))
(setq pd (polar pc pi ww))
(command "pline" “non”pa“non”pb “non”pc“non”pd "c")
(setq mp1 (polar pa 0 (/ ww 2)))
(setq mp2 (polar pb (/ pi 2) (/ hh 2)))
(setq mp3 (polar pd 0 (/ ww 2)))
(setq mp4 (polar pa (/ pi 2) (/ hh 2)))
(setq p1 (polar mp1 (* pi 1.5) (/ hh 10)))
(setq p2 (polar mp2 0 (/ hh 10)))
(setq p3 (polar mp3 (/ pi 2) (/ hh 10)))
(setq p4 (polar mp4 pi (/ hh 10)))
(command "change" "l" "" "p" "la" "0" "")
(command "line"“non” p1“non”p3 "")
(command "change" "l" "" "p" "la" "点划线" "")
(command "line"“non”p2“non”p4 "")
(command "change" "l" "" "p" "la" "点划线" "")
(setvar "cmdecho" 1)
(princ)
)

(defun c:TTT(/ pa pb pc pd ww hh mp1 mp2 mp3 mp4) 
(VL-LOAD-COM) 
  (setvar "cmdecho" 0) 
  (setq pa (getpoint "选择插入点:")) 
  (setq ww (getdist pa "\n 长度:")) 
  (setq hh (getdist pa "\n 宽度:")) 
  (setq pb (polar pa 0 ww)) 
  (setq pc (polar pb (/ pi 2) hh)) 
  (setq pd (polar pc pi ww)) 
  (command "pline" “non”pa“non”pb “non”pc“non”pd "c") 
  (setq mp1 (polar pa 0  (/ ww 2))) 
  (setq mp2 (polar pb (/ pi 2) (/ hh 2))) 
  (setq mp3 (polar pd 0 (/ ww 2))) 
  (setq mp4 (polar pa (/ pi 2) (/ hh 2))) 
  (setq p1 (polar mp1 (* pi 1.5) (/ hh 10))) 
  (setq p2 (polar mp2 0 (/ hh 10))) 
  (setq p3 (polar mp3 (/ pi 2) (/ hh 10))) 
  (setq p4 (polar mp4 pi (/ hh 10))) 
  (command "change" "l" "" "p" "la" "0" "") 
  (command "line"“non” p1“non”p3 "") 
  (command "change" "l" "" "p" "la" "点划线" "") 
  (command "line"“non”p2“non”p4 "") 
  (command "change" "l" "" "p" "la" "点划线" "") 
  (setvar "cmdecho" 1) 
  (princ) 
)

Gu_xl · 发表于 2013-5-30 13:45:14

王航发表于 2013-5-30 13:41
还是不行，烦劳再给指点一下，谢谢！

注意引号“”

Andyhon · 发表于 2013-5-30 13:47:23

" /= “

王航 · 发表于 2013-5-30 13:59:27

Gu_xl 发表于 2013-5-30 13:45
注意引号“”

谢谢您的指点，这次可以了！

王航 · 发表于 2013-5-30 14:01:00

Andyhon 发表于 2013-5-30 13:47
" /= “

谢谢您的提醒！非常感谢！

wangxf888 · 发表于 2014-6-23 11:31:55

学习了收藏备用

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

[已解答] 画矩形（带中心线）程序，延伸部分的长度有时不成功

本帖子中包含更多资源

相关帖子