戏男 发表于 2015-6-22 11:50:01

求创建无名块

请问怎么框选所有的不同聚集的图元 创建不同的块 如图中 四处框选后形成四个块，

戏男 发表于 2015-6-23 08:21:25

怎么会这样啊？无人问津 难道高手都跑了吗？

lucas_3333 发表于 2015-6-23 09:48:59

论坛里很多, 自己多动动手哈

;; 生成匿名块程序
(defun C:UNBLOCK (/ pt sset n slen name)
(setq pt (getpoint "\n指定插入点: "))
(entmake
    (list '(0 . "BLOCK") '(2 . "*U") '(70 . 1) (cons 10 pt))
)
(prompt "\n选择对象:")
(setq sset (ssget))
(setq n 0)
(if sset
    (progn
      (setq slen (sslength sset))
      (repeat slen
        (entmake (cdr (entget (ssname sset n))))
        (setq n (+ n 1))
      );_repeat
      (setq name (entmake '((0 . "ENDBLK"))))
      (entmake (list '(0 . "INSERT")(cons 2 name)(cons 10 pt)))
      (command "erase" sset "")
    )
    (princ "\nNo Objects Selected!")
);_if
(princ)
);_defun

戏男 发表于 2015-6-23 15:45:48

不对 楼上的误解了我的意思

lucas_3333 发表于 2015-6-23 18:02:38


请问怎么框选所有的不同聚集的图元 创建不同的块 如图中 四处框选后形成四个块，
你不是说四处框选后形成四个块 吗? 最好传个示例
页: [1]
查看完整版本: 求创建无名块