WHW 发表于 2004-6-15 13:47:00

弧线标注！！！！！！1

怎样标注圆弧的长度，如图中所示，只是希望标的不是角度，而是弧线长！


求方法或VLISP程序（我找了半天没找到）。

BDYCAD 发表于 2004-6-15 14:00:00

(defun c:yh(/ en pt len_data old_hc l new_hc len_data)<BR>       (setq en (entsel "选弧: "))<BR>       (setq pt (getpoint "定点: "))<BR>       (command "dimangular" en pt) <BR>       (setq len_data (entget (entlast)))<BR>       (setq old_hc (assoc 1 len_data))<BR>       (command "lengthen" (car en) "")<BR>       (setq l (getvar "perimeter"))       <BR>       (setq new_hc (cons 1 (rtos l 2 2)))<BR>       (setq len_data (subst new_hc old_hc len_data))<BR>       (entmod len_data)<BR>       )

caibaobao 发表于 2004-6-15 14:16:00

试了一下，非常好用，谢谢！！！


(怎么送鲜花？)

WHW 发表于 2004-6-15 14:21:00

多谢楼上的BOYCAD,


问题顺利解决了,


以后还的多多的学学vlisp，有用！！！<BR>

aaddff 发表于 2004-6-17 12:51:00

<FONT face=宋体 size=2>(defun c:bhc()<BR>(setq en (entsel "对象: "))<BR>(setq pt (getpoint "选点: "))<BR>(command "dimangular" en pt) <BR>(setq len_data (entget (entlast)))<BR>(setq old_hc (assoc 1 len_data))<BR>(command "lengthen" (car en) "")<BR>(setq l (getvar "perimeter")) <BR>(setq new_hc (cons 1 (rtos l 2 2)))<BR>(setq len_data (subst new_hc old_hc len_data))<BR>(entmod len_data)<BR>) </FONT><BR>

精灵王 发表于 2004-6-17 15:50:00

有一个问题，就是图纸只能是1：1的比例。

ljcgq 发表于 2006-4-11 15:13:00

谢谢啦，不用写了，借来一用。

zh74 发表于 2006-5-1 11:51:00

按一定比例画的弧线呢？表出的是实际长度？!
页: [1]
查看完整版本: 弧线标注！！！！！！1