userzhl
发表于 2008-12-21 10:17:00
[求助]求助高手，图块的插入点的组码是多少？如何能快速在选择集中获取？
<p>[求助]求助高手，图块的插入点的组码是多少？如何能快速在选择集中获取？</p><p> (setq sa (ssget '((0 . "INSERT"))))<br/> (if sa (if (> (sslength sa) 1) <br/> (princ (strcat "\n 选择的有" (rtos (- (sslength sa) 1) 2 0) "个多余，程序将任选其一对象\n"))))<br/> (if sa (setq INS (rtos (cdr (assoc 20 (entget (ssname sa 0))))))<br/> (princ "\n 未选择图块!"))</p><p>为何不行？</p>
caoyin
发表于 2008-12-21 10:24:00
<p>图块插入点组码是10</p><p>(cdr (assoc 10 (entget (ssname sa 0))))</p><p>不知楼主rtos是什么意思</p><p></p>
userzhl
发表于 2008-12-21 10:44:00
强烈推荐 <strong><font face="Verdana" color="#da2549">caoyin <font color="#000000">为优秀版主！！！</font></font></strong>
caoyin
发表于 2008-12-21 10:55:00
惭愧至极！水平太浅，加上现在不大玩了。因感恩明经，所以只能尽绵薄之力为大家服务！
zhaozwf
发表于 2008-12-21 11:19:00
<p><strong><font face="Verdana" color="#da2549">caoyin版主，你好，请教个问题，</font></strong></p><p> (COMMAND "INSERT" (FINDFILE "158p.dwg") P0 "" "")，此句用来插入其它图形，默认的插入点老是左下角，能不能改一下，改成右上角为插入点。</p>
zhaozwf
发表于 2008-12-21 11:19:00
<p><strong><font face="Verdana" color="#da2549">caoyin版主，你好，请教个问题，</font></strong></p><p> (COMMAND "INSERT" (FINDFILE "158p.dwg") P0 "" "")，此句用来插入其它图形，默认的插入点老是左下角，能不能改一下，改成右上角为插入点。</p>
不死猫
发表于 2008-12-21 12:09:00
<p>块改插入点最简单的方法：</p><p>(command "bedit" "b");b是块名</p><p>(command "BParameter" "b" pt);pt是新的插入点</p><p>(command "bclose");关闭块编辑</p><p>(command "Move" (entlast) oldpt newpt);块的对齐点编辑会发生移动 编辑后要进行移动</p>
userzhl
发表于 2008-12-21 12:28:00
<p>为何这段程序不行：</p><p>(setq ssi (ssget '((0 . "INSERT"))))<br/>(if ssi (if (> (sslength ssi) 1)(princ (strcat "\n 选择的有" (rtos (- (sslength ssi) 1) 2 0) "个多余，程序将任选其一对象\n"))))<br/>(if (= (cdr (assoc 2 (entget (ssname ssi 0)))) "材料")(setq INS (cdr (assoc 10 (entget (ssname ssi 0))))))<br/>(command "move" (entget (ssname ssi 0)) "" INS PT1)</p>
caoyin
发表于 2008-12-21 13:55:00
<p></p><p><strong><font face="Verdana" color="#61b713">不死猫</font></strong>是高手！</p><p>(setq ssi (ssget '((0 . "INSERT"))))<br/>(if ssi<br/> (if (> (sslength ssi) 1)<br/> (princ (strcat "\n 选择的有" (itoa (- (sslength ssi) 1)) "个多余，程序将任选其一对象\n"))<br/> )<br/>)</p><p>(if (= (cdr (assoc 2 (setq edat (entget (setq e (ssname ssi 0)))))) "材料")<br/> (setq INS (cdr (assoc 10 edat)))<br/>)<br/>(command "_.move" e "" "_non" INS "_non" PT1)</p>
userzhl
发表于 2008-12-21 15:21:00
版主，为何我试了不行呢？