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

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

请问各位大神用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 static/image/common/back.gif
论坛大把的，提问前请用搜索

贴一个free-lancer的函数吧

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

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

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

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

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

jltx123456 发表于 2016-5-10 22:42 static/image/common/back.gif
贴了另外一个函数，这个函数更好理解

谢谢，能问下您是怎么搜索的吗，我怎么搜不到啊
页: [1]
查看完整版本: 请问用lisp如何创建匿名块啊