帮我看这段lisp,后续的怎么写?
本帖最后由 作者 于 2007-7-8 16:05:38 编辑 <br /><br /> <p>(setq gp (getpoint "\n选择插入点:"))<br/>;;;(setq pt1 (polar gp 0 11))<br/>;;;(setq pt2 (polar pt1 (/ pi 2) 11))<br/>(setq gt (getstring t "\n请输入代号:"))<br/>(setq c1(command "circle" gp 11))<br/>(setq c2(command "circle" gp 7))<br/>(setq c3(command "_attdef" "i" "" "code" "代号" "" gp "0.002" ""))<br/>(command "_block" gt gp .........)<br/>(command "insert" ...............)</p><p>求教!!!!!怎么把这段画出来的东西,做成属性块?<br/>要求是一运行时.就直接插入这属性块.</p><p>最好是在pt2处加一个代号.这个代号为可见的一般文字.但用DDATTE也可修改. </p> <p>(setq gp (getpoint "\n选择插入点:"))<br/>;;;(setq pt1 (polar gp 0 11))<br/>;;;(setq pt2 (polar pt1 (/ pi 2) 11))<br/>(setq gt (getstring t "\n请输入代号:"))</p><p>(setq ssgrp (ssadd))<br/>(setq c1(command "circle" gp 11))</p><p>(ssadd (entlast) ssgrp)<br/>(setq c2(command "circle" gp 7))</p><p>(ssadd (entlast) ssgrp)</p><p>(command "_attdef" "i" "" "code" "代号" "" gp "0.002" "");文字高度这么小，看得见吗？</p><p>(ssadd (entlast) ssgrp)<br/>(setq blkn (rtos (* 100000000 (getvar "cdate")) 2 0))<br/>(command "_block" blkn gp ssgrp "")<br/>(command "insert" blkn gp 1 1 0 gt)<br/></p><p></p> <p>(ssadd (entlast) ssgrp)应该改成(setq ssgrp (ssadd (entlast) ssgrp))</p> ZZXXQQ发表于2007-7-9 16:23:00static/image/common/back.gif(ssadd (entlast) ssgrp)应该改成(setq ssgrp (ssadd (entlast) ssgrp))<p>这样也行，但没有必要，因为结果是一样的</p> OK了。。。多谢。。。。不枉等了二天。。。。
页:
[1]