请问用lisp如何创建匿名块啊

窗外流逝的时光 · 发表于 2016-5-10 22:01:51

请问各位大神用lisp如何创建匿名块啊

jltx123456 · 发表于 2016-5-10 22:36:39

本帖最后由 jltx123456 于 2016-5-10 22:40 编辑

论坛大把的，提问前请用搜索

贴一个函数吧

(defun emkunameblk (ss pt / i name)
(entmake (list '(0 . "block") '(2 . "*U") '(70 . 1) (cons 10 pt)))
(repeat (setq i (sslength ss)) (entmake (cdr (entget (ssname ss (setq i (1- i)))))) )
(setq name (entmake '((0 . "ENDBLK"))))
(command "_.erase" ss "")
(entmake (list '(0 . "INSERT") (cons 2 name) (cons 10 pt)))
name
)

窗外流逝的时光 · 发表于 2016-5-10 22:38:53

jltx123456 发表于 2016-5-10 22:36
论坛大把的，提问前请用搜索

贴一个free-lancer的函数吧

谢谢，我搜来着，没找到才发帖问的，谢谢

jltx123456 · 发表于 2016-5-10 22:42:06

窗外流逝的时光发表于 2016-5-10 22:38
谢谢，我搜来着，没找到才发帖问的，谢谢

贴了另外一个函数，这个函数更好理解

窗外流逝的时光 · 发表于 2016-5-10 22:49:16

jltx123456 发表于 2016-5-10 22:42
贴了另外一个函数，这个函数更好理解

谢谢，能问下您是怎么搜索的吗，我怎么搜不到啊

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

[函数] 请问用lisp如何创建匿名块啊