xiaomihu 发表于 2005-12-14 13:16:00

<P>1、如果是line就要修改程序</P>
<P>2、你是搞规划的吗，一定要搞编号</P>

wuling619 发表于 2005-12-26 09:51:00

<P>老兄。。好像你的程序运行没啥问题。。</P>
<P>但是好像标注的坐标 y 值全是错的。。</P>
<P>我想应该是属于逻辑错误。。</P>
<P>检查一下你的代码吧!!!!!!!!!!!!!!!!!</P>
<P>&nbsp;</P>
<P>&nbsp;</P>

中华 发表于 2005-12-29 14:12:00

x,y的坐标弄反了，而且精度只要小数点三位就可以了

Dragon9813 发表于 2005-12-29 17:01:00

<P>哈哈,你一次说完就完了</P>
<P>黑猫的程序真的是很好</P>
<P>&nbsp;</P>

dwg001 发表于 2005-12-30 23:57:00

<P>黑猫的程序真的是很好。</P>
<P>楼上的说：x,y的坐标弄反了，而且精度只要小数点三位就可以了 。</P>
<P>作了一点修改，试试看。</P>

dwg001 发表于 2005-12-31 00:18:00

<P>抱歉！文件没传好，再传一下。</P>

jfh1 发表于 2006-1-11 13:32:00

<P>&nbsp;;贾氏坐标注记程序；适合各种实体！！！<BR>(defun C:zJ()&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setvar "cmdecho" 0)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setvar "osmode" 0)</P>
<P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ;;以下这句有可能要根据实际情况改一下<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (COMMAND "-STYLE" "TTST" "SIMKAI.TTF" 0 0.9 0 "N" "N""")</P>
<P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq SC (GETREAL "请输入标注字高&lt;1.0&gt;:"))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (if (= sc nil)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq sc 1)<BR>&nbsp;&nbsp; )<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq LABLE (entget(car (entsel "请选择要标注的实体:"))))<BR>&nbsp;&nbsp; (command "color" 5"")<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (while (SETQ la1 (assoc '10 LABLE))</P>
<P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (SETQ la (CDR la1))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (SETQ JJX (rtos (cadr la) 2 3))<BR>(SETQ JJX (strcat "X=" JJX))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (SETQ JJY (rtos (car la) 2 3))<BR>(SETQ JJY (strcat "Y=" JJY))<BR>　　　　　;求标注文字的最大长度<BR>&nbsp;&nbsp; (setq lenx (* (+ (strlen jjx) 1) sc))<BR>&nbsp;&nbsp; (setq leny (* (+ (strlen jjy) 1) sc))<BR>&nbsp;&nbsp; (if (&lt; lenx leny)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq lenx leny)<BR>&nbsp;&nbsp;&nbsp;&nbsp; )<BR>　　　　　;求标注线水平段的长度<BR>&nbsp;&nbsp; (setq lenx (* lenx 0.65))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq lb (list (+ (car la) (* 2 sc)) (+ (cadr la) (* 2 sc))))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq lc (list (+ (car lb) lenx) (cadr lb)))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (COMMAND "PLINE" la lb lc"")<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (command "Text" "j" "bl"&nbsp; (list (+ (car lb) (* 0.5 sc)) (+ (cadr lb) (* 0.4 sc))) (* 1 sc) 0 JJX)<BR>&nbsp;&nbsp; (command "Text" "j" "tl"&nbsp; (list (+ (car lb) (* 0.5 sc)) (- (cadr lb) (* 0.5 sc))) (* 1 sc) 0 JJy)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq LABLE (CDR (MEMBER LA1 LABLE) ))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<BR>&nbsp;&nbsp; (command "color" "BYLAYER" "")<BR>&nbsp; )</P>

5061220 发表于 2009-8-27 11:29:00

<p>先收藏再研究</p>

tony1435 发表于 2009-8-27 11:55:00

本帖最后由 作者 于 2009-8-27 13:29:21 编辑 <br /><br /> <strong><font face="Verdana" color="#61b713">字体会自动新建?</font></strong>

liminnet 发表于 2009-8-27 21:49:00

页: 1 [2] 3
查看完整版本: 选PL线，然后直接标注出每个顶点的坐标！