[功能] 插入块(Entmake法，非属性块)

newer · 发表于 2014-12-13 12:56:06

/db_自贡黄明儒_ 发表于 2014-12-13 12:36
男性也是可以矜持，不过好象没有专用于男性的这个词。
见你这么一说，看来我是搞不定了{:sos ...

黄工，ST都提示给你了，你就半推半就的写了吧。

/db_自贡黄明儒_ · 发表于 2014-12-13 13:11:22

newer 发表于 2014-12-13 12:56
黄工，ST都提示给你了，你就半推半就的写了吧。

哈哈哈，N版，你的文采更好呀！！

/db_自贡黄明儒_ · 发表于 2014-12-13 14:03:53

本帖最后由 /db_自贡黄明儒_ 于 2014-12-13 14:05 编辑

newer 发表于 2014-12-13 12:56
黄工，ST都提示给你了，你就半推半就的写了吧。

好象成了,但问题怎么确定原来块"ccd1"有几个属性？
;(EntmakeInsert "ccd1" (getpoint))
(defun EntmakeInsert (name pt)
  (entmake (list '(0 . "INSERT")'(66 . 1)(cons 2 name)(cons 10 pt)))
  (MKATTRIB pt)
)
(defun MKATTRIB (pt)
  (entmake (list
         '(0 . "ATTRIB")
         '(100 . "AcDbEntity")
         '(100 . "AcDbText")
         (cons 10 pt)
         (cons 40 3.5)
         (cons 1 "A")
         '(100 . "AcDbAttribute")
         (cons 2 "A")
         '(70 . 0)
         )
  )
  (entmake '((0 . "SEQEND")))
)

newer · 发表于 2014-12-13 14:32:54

/db_自贡黄明儒_ 发表于 2014-12-13 14:03
好象成了,但问题怎么确定原来块"ccd1"有几个属性？
;(EntmakeInsert "ccd1" (getpoint))
(defun Entmak ...

原来块有几个属性，你可以遍历块表记录，累加下ATTDEF实体的数量啊。

sicky111 · 发表于 2014-12-25 17:32:38

不顶不让看。

chenshulu · 发表于 2014-12-26 20:50:40

学习。。。。。。。。。。。。。。。。。。

lkq6776 · 发表于 2015-5-1 23:44:34

学习代码，属性块又如何插入

178246098 · 发表于 2015-5-4 18:47:42

v/nvnbvlllbm m

hrbustmqc · 发表于 2015-5-23 19:16:11

找来找去，希望就在此贴了

hrbustmqc · 发表于 2015-5-23 19:17:05

希望就在此贴了

hrbustmqc · 发表于 2015-5-23 19:20:45

感觉这个论坛比较开源啊，喜欢这里的气氛

nothing3443 · 发表于 2015-5-25 15:25:19

对楼猪只能说,你太伟大了!!

maker_lv · 发表于 2016-1-6 13:29:26

学习学习！

maiqi816 · 发表于 2016-1-8 11:42:40

看看看看看看看看看看看看看看看看看看看看看看看看

abc498091367 · 发表于 2016-1-9 23:01:01

看看方法:lol

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

[每日一码] [功能] 插入块(Entmake法，非属性块)

点评