hxh2901 发表于 2005-5-31 17:07:00

是啊

动态效果没有了，非常不方便哦。我想恢复动态效果，恢复不了，怎么办泥？

jaminth 发表于 2007-11-28 18:50:00

了解了解

jaminth 发表于 2007-11-28 18:53:00

<p><strong><font face="Verdana" color="#da2549">ZZXXQQ,能不能改进一下,加入对倾斜标注的支持！!!!!</font></strong></p><p><strong><font face="Verdana" color="#da2549">小弟现在非常急用！！１</font></strong></p>

he520930 发表于 2007-12-1 16:34:00

本帖最后由 作者 于 2007-12-1 16:36:35 编辑

这个程序非常实用,如果斜面标注和动态效果也有就更好了.点第4个点及以后的点与第一点的尺寸起点一样齐那就更完美了.

ZZXXQQ 发表于 2007-12-1 20:15:00

再试试。支持对齐标注。


;混合标注 明经 ZZXXQQ 2007.12.1
(DEFUN C:CCDIM ()
(SETVAR "CMDECHO" 0)
(INITGET 9)
(SETQ PT1 (GETPOINT "\nFirst extension line origin 尺寸界限第一点 :"))
(INITGET 9)
(SETQ PT2 (GETPOINT PT1 "\nSecond extension line origin 尺寸界限第二点 :"))
(SETQ ANG (ANGLE PT1 PT2))
(IF (OR (EQUAL (CAR PT1) (CAR PT2) 0.01) (EQUAL (CADR PT1) (CADR PT2) 0.01))
(COMMAND "_DIMLINEAR" "NON" PT1 "NON" PT2 PAUSE)
(COMMAND "_DIMALIGNED" "NON" PT1 "NON" PT2 PAUSE)
)
(COMMAND "_DIMCONTINUE")
(WHILE (SETQ PT3 (GETPOINT "\nSpecify a second extension line origin 第二点 :"))
   (SETQ PT4 (POLAR PT3 (+ (/ PI 2) ANG) 5)
         PT3 (INTERS PT1 PT2 PT3 PT4 nil))
(COMMAND "NON" PT3)
)
(COMMAND "" "")
(SETVAR "CMDECHO" 1)
(PRINC)
)

he520930 发表于 2007-12-3 11:56:00

<p>感谢<font face="Verdana" color="#000000">ZZXXQQ兄,非常实用,以后标注尺寸只用一个名令就可以了.嘻嘻....<font color="#ff3300">有动态效果也有就更好了.</font></font></p>

cqybhxd 发表于 2007-12-4 16:48:00

太好了。谢谢版主支持！！！！！1

高级用户 发表于 2007-12-5 13:08:00

试用一下

fengsea 发表于 2007-12-15 00:08:00

<p>很实用的标注lisp，不过要是能尺寸线按照字高的倍数限制那就完美了，因为标注的时候经常画辅助线来统一图纸标注与实体的距离来美化图纸严谨性。</p>

wanglm-xxx 发表于 2008-3-12 23:26:00

哈哈哈哈哈　
页: 1 [2] 3 4 5
查看完整版本: 帮我编个很实用的尺寸标注