1078815748 发表于 2010-11-22 21:00:00

1078815748 发表于 2010-11-22 21:03:00

就一小卒 发表于 2010-11-22 21:45:00

<p>隔行如隔山哦！ 能否把你想要实现的功能说的具体点啊</p>
<p>&nbsp;</p>

1078815748 发表于 2010-11-23 10:43:00

1078815748 发表于 2010-11-23 17:09:00

就一小卒 发表于 2010-11-23 20:37:00

<p>我们从事的行业不同，把你想要实现的功能说的详细点。这样便于理解。</p>
<p>&nbsp;</p>

1078815748 发表于 2010-11-23 21:21:00

masterlong 发表于 2010-11-23 22:01:00

<p><font face="Verdana">(defun c:横断符号( / aaa te bbb ts ccc ttt )<br/>&nbsp;(princ "\n插入横断符号 ")<br/>&nbsp;(setvar "cmdecho" 0)<br/>&nbsp;(setvar "ORTHOMODE" 1)<br/>&nbsp;(setq ttt (strcase (getstring "\n指定标号(A) : ")))<br/>&nbsp;(if (= ttt "")(setq ttt "A"))<br/>&nbsp;(princ "\n指定位置及方向")<br/>&nbsp;(command "insert" "横断符号" "non" pause 1 1 pause)<br/>&nbsp;(setq aaa (entlast))<br/>&nbsp;(command "line" "non" '(0 0) "non" '(0 1) "")<br/>&nbsp;(setq te (setq bbb (entlast)))<br/>&nbsp;(command "explode" (list aaa '(0 0)))<br/>&nbsp;(setq ts (ssadd))<br/>&nbsp;(while (setq te (entnext te))<br/>&nbsp;&nbsp;(setq ts (ssadd te ts))<br/>&nbsp;)<br/>&nbsp;(command "select" ts "")<br/>&nbsp;(setq ccc (ssget "p" '((0 . "TEXT"))))<br/>&nbsp;(entmod (subst (cons 50 0)(assoc 50 (entget (ssname ccc 0))) (entget (ssname ccc 0))))<br/>&nbsp;(entmod (subst (cons 1 ttt)(assoc 1 (entget (ssname ccc 0))) (entget (ssname ccc 0))))<br/>&nbsp;(entmod (subst (cons 50 0)(assoc 50 (entget (ssname ccc 1))) (entget (ssname ccc 1))))<br/>&nbsp;(entmod (subst (cons 1 ttt)(assoc 1 (entget (ssname ccc 1))) (entget (ssname ccc 1))))<br/>&nbsp;(command "erase" bbb "")<br/>(princ)<br/>)</font></p>
<p>&nbsp;</p>
<p>发一个以前随手编的程序</p>
<p>基本可以满足你的需要</p>
<p>参考附件的模式按你的需求定义块</p>
<p>将这个程序的插入块名改成你的块名</p>
<p>再将程序名改成好记的即可</p>

1078815748 发表于 2010-11-24 10:15:00

yoyoho 发表于 2010-11-24 12:54:00

<p>感谢楼主分享!</p>
<p>实用喔!</p>
页: [1]
查看完整版本: [讨论]求两个程序