byghbcx 发表于 2008-7-10 21:34:00

xd-xdcad发表于2008-7-10 20:21:00static/image/common/back.gif想新建一个简单的标注样式，格式与STANDRAD相同，仅仅是箭头类型是\"倾斜\",请问LISP怎样写，我是这样先:(command \"dimblk\" \"_oblique\")再建立标注样式:(defun c:TEST ()  &nbsp

<p>先设置系统变量,再保存为标注样式</p><p>(setvar 'dimblk "_oblique")</p><p>(command ".dimstyle" "s" "dim")</p>

xd-xdcad 发表于 2008-7-10 22:00:00

<p></p><p>这是我写的,请指点</p><p>谢谢</p>

jxlsp 发表于 2008-7-11 14:08:00

支持源码共享

不断完备 发表于 2008-7-12 10:03:00

这个有什么用呀，好像没什么用、。

lizhiqiang9801 发表于 2011-11-8 16:04:14

第三个(defun c:dd()程序不运行

fergus1987 发表于 2011-11-9 08:47:04

谢谢楼主分享!

lohas1118 发表于 2011-11-9 11:32:37

不错的程序，支持

328302216 发表于 2011-11-12 15:32:32

超然A 发表于 2008-7-10 00:41 static/image/common/back.gif
查两个图层相交的点
;程序说明：程序运行之后不要再动鼠标或操作CAD了，否则程序会中断。
;    程序运行完毕 ...

这个程序好像有点问题啊！是代码的问题！！

328302216 发表于 2011-11-12 15:40:34

最后的一个程序有点问题啊！不过还是支持一下源码分享！

soonsos 发表于 2013-4-2 16:38:39

不行呀，清除重复块出线错误：
“ec ; 错误: 参数类型错误: lselsetp nil”
页: 1 [2] 3
查看完整版本: 无聊，发几个小程序