[LISP程序]：cad中lisp程序：匿名快和组

iwzw · 发表于 2003-10-3 16:34:12

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

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

×

以下是本人喜欢用的两个程序，一个是在cad中作匿名块，一个是作匿名组。优点是快速方便，提供制图速度。现提供给各位朋友：

LISP匿名块程序：
(defun c:bb()
  (setq pt (getpoint "\n插入点： "))
  (entmake
(list '(0 . "BLOCK") '(2 . "*U") '(70 . 1) (cons 10 pt))
  )
  (prompt "\n选择实体")
  (setq ss1 (ssget)
i (sslength ss1)
n (- 1)
  )
  (repeat i
(entmake (cdr (entget (ssname ss1 (setq n (1+ n))))))
  )
  (setq num (entmake '((0 . "ENDBLK"))))
  (entmake (list '(0 . "INSERT") (cons 2 num) (cons 10 pt)))
  (command "erase" ss1 "")
  (princ)
)

LISP匿名组程序：
(defun c:gg()
  (command "-group" "" "*" "")
  (princ)
)

JOSDENNIS · 发表于 2003-10-29 10:12:53

是個好程序.謝謝大俠

2002zjp · 发表于 2003-10-29 11:01:10

加载后不会使用，不知道能干什么？

ywx0576 · 发表于 2003-12-26 18:13:38

真的很好用，多谢了!

wkai · 发表于 2003-12-26 19:30:11

最好不要提示插入点~
使用起来会更方便！
而且无名块也不需要有什么特别的插入点

on/off · 发表于 2003-12-26 21:11:16

那就用图中心或左下点？

ywx0576 · 发表于 2004-1-8 16:40:22

想把匿名块改成普通可插入的块，不知各位有没有办法？

playboy · 发表于 2004-1-8 17:14:08

这个主要是有什么用啊
楼主能否说明一下

coolzhb · 发表于 2004-1-8 17:38:01

做组的真有用，但做匿名块有什么用呀！过滤时又不好选择！

陌生人 · 发表于 2004-1-8 23:53:44

此做匿名块程序无法打包pline，含属性的块。

hdtmzs · 发表于 2008-3-22 20:22:58

怎么分解啊，谢谢

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

[LISP程序]：cad中lisp程序：匿名快和组

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

相关帖子