[LISP函数]：能否定义匿名块？

afeng0712 · 发表于 2005-10-28 18:59:18

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

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

×

能否定义匿名块？能------如何定义？

eachy · 发表于 2005-11-1 13:31:33

你会怎么定义有名块？Block命令、复制、还是用Lisp？

yunzhong80 · 发表于 2005-11-3 15:44:11

在VBA中这样可以创建不名块
Dim blockObj As AcadBlock
Set blockObj = ThisDrawing.Blocks.Add(insertionPnt, "*a")

可在LISP中把块命名为“*a”不能创建，不知什么原因，请大虾们指教

andy_li99 · 发表于 2005-11-4 03:19:10

;==============图形转块==========
(defun C:tvb ()
(setq A (substr (rtos (getvar "DATE") 2 8) 10 9))
(setq B (substr (rtos (getvar "CDATE") 2 8) 10 9))
(setq p1 (getpoint "\n请设定插入点"))
(command ".block" (strcat "cb" A B "x") P1 (ssget) "")
(command ".insert" (strcat "cb" A B "x") P1 "" "" "")
(princ)
)

afeng0712 · 发表于 2005-11-7 21:25:46

我想把自定义的曲线标注做成一匿名块，因为它是针对某线段只用一次！
(defun mc-make-unname-block(ss / count entlist ent blk)
  (entmake '((0 . "BLOCK")
   (2 . "*U")
   (70 . 1)
   (10 0 0 0)
   ))
  (setq count 0)
  (repeat (sslength ss)
(setq entlist(entget(setq ent(ssname ss  count))))
(setq count (1+ count))
(entmake entlist)
)
  (setq count 0)
  (repeat(sslength ss)
(setq ent(ssname ss count))
(setq count (1+ count))
(entdel ent)
)
  (setq blk(entmake '((0 . "ENDBLK"))))
  (if (princ blk)
  (entmake (list (cons 0  "INSERT")
   (cons 2 blk)
   (cons 10 '(0 0 0))
   ))
)
  blk
  )
有上面的可做成匿名块，但是块中有文字属性块不能做成可修改内容的那种！

eachy · 发表于 2005-11-7 22:22:27

到“函数库”论坛查相关函数

afeng0712 · 发表于 2005-11-8 12:28:04

老大，找不到函数库啊！！！给个连接！

eachy · 发表于 2005-11-8 12:37:11

http://p4.xdcad.net/forum/forumdisplay.php?s=&forumid=50

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

[LISP函数]：能否定义匿名块？

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

相关帖子