无聊，发几个小程序

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

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

先设置系统变量,再保存为标注样式

(setvar 'dimblk "_oblique")

(command ".dimstyle" "s" "dim")

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

这是我写的,请指点

谢谢

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
查两个图层相交的点
;程序说明：程序运行之后不要再动鼠标或操作CAD了，否则程序会中断。
; 程序运行完毕 ...

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

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

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

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

不行呀，清除重复块出线错误：
“ec ; 错误: 参数类型错误: lselsetp nil”

账号		自动登录	找回密码
密码			注册