[求助]：一个简单的语言，求教！！！

ke_keyang · 发表于 2005-12-30 10:39:23

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

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

×

已知一个园的园心坐标及半径，怎么能用autolsp语言选中，再删除这个园？

似水无痕 · 发表于 2005-12-30 11:48:09

(defun c:test1 (/ ss1 lth i)
(setq ss1 (ssget "X" '((0 . "CIRCLE") (10 0.0 0.0 0.0) (40 . 2)))
lth (sslength ss1)
i 0
)
(repeat lth
(setq ent1 (ssname ss1 i)
i (1+ i)
)
(entdel ent1)
)
(princ)
)
(princ "\n输入test1删除对象")

taner · 发表于 2005-12-30 13:09:16

最初由似水无痕发布
[B][code](defun c:test1 (/ ss1 lth i)
  (setq ss1 (ssget "X" '((0 . "CIRCLE") (10 0.0 0.0 0.0) (40 . 2)))
lth (sslength ss1)
i 0
  )
  (repeat lth
(setq ent1 (ssname ss1 i)
   i (1+ i)
... [/B]

這樣就可以了.
(defun c:test1 (/ ss1 lth i)
  (setq ss1 (ssget "X" '((0 . "CIRCLE") (10 0.0 0.0 0.0) (40 . 2)))
   )
  ("command" "erase" ss1 "")
(princ "\n输入test1删除对象")
)

ke_keyang · 发表于 2005-12-30 13:12:06

不懂呀，刚学，糊涂！
如果已知点pt1，半径r1，上面的程序应该怎么改呢？

taner · 发表于 2005-12-30 13:24:58

建議樓主去看看CAD HELP裏的DXF部分.

zxq0220 · 发表于 2005-12-30 13:37:48

[php]
(defun ERASEC (PT1 R1 / ss1 lth i)
  (setq ss1 (ssget "X" (LIST (CONS 0  "CIRCLE") (CONS 10 PT1) (CONS 40  R1))))
  (COMMAND "ERASE" SS1 "")
  (princ)
)
[/php]

[FONT=courier new](defun ERASEC (pt1 r1)
(COMMAND "ERASE"
(ssget "X"
(LIST (CONS 0 "CIRCLE") (CONS 10 pt1) (CONS 40 r1))
)
""
)
(princ)
)[/FONT]

ke_keyang · 发表于 2005-12-30 14:02:33

非常感谢各位的帮助！！！

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

[求助] [求助]：一个简单的语言，求教！！！

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

相关帖子