chenping42 发表于 2005-12-13 22:44:00

请问高手?

请问怎么样才能在坐标标注后面加上1,2,3带圈的序号,每标一个数序号增加?

lazybug 发表于 2005-12-14 17:14:00

<P>这样做有什么意义么？是要改写cad的标注命令还是自定义的命令？</P>
<P>最好发个效果图上来看看。</P>

chenping42 发表于 2005-12-14 23:42:00

谢谢！

是用AUTOLISP语言怎么编呀，这样做是想标的数每个都有序号，以便测量。

Andyhon 发表于 2005-12-15 08:40:00

<P>这个给您参考</P>
<P>&nbsp; LE&nbsp; Jul 17 2002, 7:12 am&nbsp;&nbsp; show options </P>
<P>Newsgroups: autodesk.autocad.customization <BR>From: "LE" &lt;<A href="http://www.arqcom.com.mx/" target="_blank" >www.arqcom.com.mx</A>&gt; - Find messages by this author&nbsp; <BR>Date: Tue, 16 Jul 2002 15:48:49 -0700 <BR>Local: Wed, Jul 17 2002 6:48 am&nbsp; <BR>Subject: Re: Getpoint function fails <BR>Reply to Author | Forward | Print | Individual Message | Show original | Report Abuse&nbsp; </P>
<P>Richard Preator </P>
<P><BR>There you go sir... </P>
<P><BR>(defun c:rpball&nbsp; (/&nbsp;&nbsp; old&nbsp;&nbsp; oldsnap sty&nbsp;&nbsp; ang&nbsp;&nbsp; scl <BR>&nbsp;&nbsp;&nbsp; scl1&nbsp;&nbsp; Dscl&nbsp;&nbsp; Cscl&nbsp;&nbsp; storela k#clayer <BR>&nbsp;&nbsp;&nbsp; ldr_start&nbsp;&nbsp; ldr_end a&nbsp;&nbsp; aang&nbsp;&nbsp; Ascl <BR>&nbsp;&nbsp;&nbsp; point&nbsp;&nbsp; circl&nbsp;&nbsp; txt) <BR>&nbsp; (setvar "cmdecho" 0) <BR>&nbsp; (setq old (getvar "orthomode")) <BR>&nbsp; (setvar "orthomode" 0) <BR>&nbsp; (setq oldsnap (getvar "osmode")) <BR>&nbsp; (setq sty (getvar "snapstyl")) <BR>&nbsp; (setvar "snapstyl" 0) <BR>&nbsp; (setq ang (getvar "snapang")) <BR>&nbsp; (setq scl (getvar "dimtxt")) <BR>&nbsp; (setq scl1 (getvar "dimscale")) <BR>&nbsp; (setq Dscl (* scl scl1)) <BR>&nbsp; (setq Cscl (* Dscl 1.2)) <BR>&nbsp; (setq storela (getvar "curlayer")) <BR>&nbsp; (setq k#clayer (getvar "clayer")) <BR>&nbsp; (if (/= storela "DIM") <BR>&nbsp;&nbsp;&nbsp; (command "._layer" "_m" "DIM" "")) <BR>&nbsp; (command "._osmode" 512) <BR>&nbsp; (setq ldr_start <BR>&nbsp; (getpoint "\n Enter Start Point of Leader at Object: ")) <BR>&nbsp; (prompt "\n&nbsp;&nbsp;&nbsp; Enter Center of Balloon: ") <BR>&nbsp; (command "._osnap" "_none") <BR>&nbsp; (command "._line" ldr_start pause "") <BR>&nbsp; (setq ldr_end (getvar "lastpoint")) <BR>&nbsp; (command "._erase" "_l" "") <BR>&nbsp; (setq A (angle ldr_start ldr_end)) <BR>&nbsp; (setq Aang (* 180 (/ A pi))) <BR>&nbsp; (setq Ascl (* 0.32 Dscl)) <BR>&nbsp; (setq point (polar ldr_start A Dscl)) <BR>&nbsp; (command "._pline" ldr_start ldr_end "") <BR>&nbsp; (command "._pedit" "_l" "_edit" "_insert" point "_P" "_w" "0.0" Ascl <BR>&nbsp;&nbsp;&nbsp; "_x" "_x") <BR>&nbsp; (command "._circle" ldr_end Cscl) <BR>&nbsp; (setq circl (entlast)) <BR>&nbsp; (command "._change" circl "" "_p" "_c" 1 "") <BR>&nbsp; (command "._trim" circl "" ldr_end "") <BR>&nbsp; (setq txt (getstring "\nItem Number: ")) <BR>&nbsp; (command "._text" "_j" "_m" ldr_end Dscl "0" (princ txt)) <BR>&nbsp; (command "._change" "_l" "" "_p" "_c" 1 "") <BR>&nbsp; (setvar "cmdecho" 1) <BR>&nbsp; (setvar "snapstyl" sty) <BR>&nbsp; (setvar "snapang" ang) <BR>&nbsp; (setvar "orthomode" old) <BR>&nbsp; (setvar "clayer" k#clayer) <BR>&nbsp; (setvar "osmode" oldsnap) <BR>&nbsp; (princ)) <BR>(princ) </P>
<P>&nbsp;</P>
页: [1]
查看完整版本: 请问高手?