已解决圆弧延长后，从两端点画直线

统一网名 · 发表于 2022-5-18 11:29:35

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

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

×

本帖最后由统一网名于 2022-5-18 14:51 编辑

如题，把圆弧延长后连接两端点画直线失败，求各位给看一下问题出在哪里了

(defun c:tt (/ ss en en1 pp1 pp2 pt1 pt2)
(setq ss (ssget '((0 . "arc"))))
(setq en (ssname ss 0)
pt1 (vlax-curve-getstartpoint en)
pt2 (vlax-curve-getendpoint en)
)
(command "lengthen" "de" 150 (list en pt1) (list en pt2) "")
(setq en1 (entlast))
(set pp1 (vlax-curve-getstartpoint en1))
(set pp2 (vlax-curve-getendpoint en1))
(command "line" pp1 pp2 "")
)

WhoCanSay · 发表于 2022-5-18 11:44:03

去除第8行(setq en1 (entlast))，第9 10行 en1改成en

统一网名 · 发表于 2022-5-18 13:45:32

WhoCanSay 发表于 2022-5-18 11:44
去除第8行(setq en1 (entlast))，第9 10行 en1改成en

谢谢，刚才试了一下还是不行，应该是圆弧延长后没有获取到2端点。

WhoCanSay · 发表于 2022-5-18 14:06:08

(defun c:tt1 (/ ss  en en1  pp1 pp2 pt1 pt2)
  (setq ss (ssget '((0 . "arc"))))
  (setq en  (ssname ss 0)
pt1 (vlax-curve-getstartpoint en)
pt2 (vlax-curve-getendpoint en)
  )
  (command "lengthen" "de" 150 (list en pt1) (list en pt2) "")
  (setq pp1 (vlax-curve-getstartpoint en))
  (setq pp2 (vlax-curve-getendpoint en))
  (command "line" pp1 pp2 "")
)

统一网名 · 发表于 2022-5-18 14:49:31

WhoCanSay 发表于 2022-5-18 14:06
(defun c:tt1 (/ ss  en en1  pp1 pp2 pt1 pt2)
  (setq ss (ssget '((0 . "arc"))))
  (setq en  (ssn ...

多谢，找到问题了，setq 写成了set

qqqincccken · 发表于 2022-5-18 21:10:20

又学习到了谢楼上的提供

hh_lj007 · 发表于 2022-5-24 09:10:04

又学习到了谢楼上的提供

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

[求助] 已解决圆弧延长后，从两端点画直线

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

点评

点评

浏览过的版块

[求助] 已解决 圆弧延长后，从两端点画直线

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

点评

点评

浏览过的版块

[求助] 已解决圆弧延长后，从两端点画直线