[求助]：如何用LISP将圆转为PL线

lzy9788 · 发表于 2004-8-27 09:29:09

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

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

×

请问如何用LISP将圆转为PL线？如何用LISP把直线(LINE)转为PL线？
(defun linetopline ()
(setq ss (ssget))
(setq num (sslength) ee 0)
(while (< ee num)
(setq nam (ssname ss ee))
(setq ent (entget nam))

此处我想用subst和entmod来将line变为pline(圆变pline类同,用lisp,不用vlisp)

(setq ee (1+ ee))
);end while
);end defun

zhang8755 · 发表于 2004-8-27 10:32:53

我的想法,在你的循环中,将所选的圆的圆心和半径获得后,将圆删除,用donut命令画一个同样大小的圆，注意画的时候，内外径都输半径值，所得即为pline圆

zxq0220 · 发表于 2004-8-27 10:56:12

可以这样写吗？
(defun linetopline ()
(setq ss (ssget))
(setq num (sslength) ee 0)
(while (< ee num)
(setq nam (ssname ss ee))
(setq ent (entget nam))

(SETQ NN (CDR (ASSOC 0 DL)))
(IF (OR (= NN "LINE") (= NN "ARC")) (command "PEDIT" nam "Y" ""))
(IF (= NN "CIRCLE") (PROGN
  (SETQ PT (CDR (ASSOC 10 DL))
R (CDR (ASSOC 40 DL))
RO R)
  (ENTDEL nam)
  (COMMAND "DONUT" R RO PT "")
))

(setq ee (1+ ee))
);end while
);end defun

lzy9788 · 发表于 2004-8-27 11:46:58

我想用SUBST和ENTMOD来实现，不知道可不可以

panzhongw · 发表于 2004-8-27 15:16:38

试一下用DONUT重画圆，再将原圆ENTDEL。

shisj · 发表于 2004-8-27 15:33:25

用pedit不行吗？

ll_j · 发表于 2004-8-27 15:39:29

最初由 lzy9788 发布
[B]我想用SUBST和ENTMOD来实现，不知道可不可以 [/B]

应该是不可以的，Entmod不可以变换实体类型，即使你将表全部替换。

lzy9788 · 发表于 2004-8-27 15:56:29

哦，那我就只好用PEDIT了，谢谢长老。

JOSDENNIS · 发表于 2004-8-27 19:35:19

O. 我的天, 這年頭拉登也來搞CAD了.

aeo · 发表于 2004-8-28 11:34:16

圆环就是闭合多义线
一个圆(圆心 pt 半径 rad)
-->
(setq p1(polar pt 0 rad)
      p2(polar pt pi rad))
(entmake (list  '(0 . "LWPOLYLINE") '(90 . 2)'(70 . 1)
                  (cons 10 p1)  '(42 . 1) (cons 11 p2) '(42 . 1)
  ))

wyl741220 · 发表于 2004-8-28 11:45:21

各位高手，大侠。当两条线不共面时怎么才能使他们共面呢？在什么样的情况下两条线才可以圆角？

lzy9788 · 发表于 2004-8-30 16:29:29

9楼兄弟，别那么大声啊，我现在在避风。

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

[求助] [求助]：如何用LISP将圆转为PL线

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

相关帖子

浏览过的版块