[求助]：用LISP如何实现如此多功能序号球

橄榄滋味

网上已经有很多关于序号球的贴子，但是贴子上的序号球都是散的，引线和圆和数字不是一个整体，尽管有命令可以用鼠标带着序号球移动箭头尾线也可以保持指向圆心，但是因为它不是整体，所以不能和引线一起可以随着尺寸本身大小比例的变化而改变，所以影响了它的实用性。
我图片上的序号球是别人软件生成的，有这样特点：
1它是一个整体，有6个夹点。
2点击箭头夹点（共1个）可以移动箭头位置，箭头尾线始终指向圆心。
3点击圆夹点（共5个）可以移动序号球位置，箭头尾线始终指向圆心。
4双击它显示它是引线，和尺寸一样，整体随着尺寸本身大小比例的变化而改变。
5可以修改序号球中的数字
这种多功能序号球用LISP能实现吗？期望各位长老的帮助

xyp1964

发个dwg图上来。

ljpnb

我估计不太好实现，特别是画好之后再点“夹点”还能操作就比较难了，有点象半径标注那种

橄榄滋味

谢谢大家的热心关注，不过这种序号球有些特点：
1 只有在它的软件环境下才能正常使用，点击时有夹点，而且可以用STRECH拽它，跟拽其它一般图元没有区别，可以复制移动等一般操作。
2在一般环境下不能正常使用，点击时没有任何夹点，用STRECH拽不动它，而且连续复制移动2次后，数字位置会离开原来位置（可能是程序缺陷）。
3在一般环境下要打开“显示代理图形”设置，才能够看见这些符号，否则看不到。
4还有些不带箭头的序号球，用PROPERTY看它会产生意外错误（可能是程序缺陷），而带箭头的序号球是引线（可用PROPERTY显示）。
另外，我上传一CAD文件，供大家参考。
谢谢

ljpnb

看了一下，正如4楼所说的那样，一没夹点，二不能拖动，期待。。。。。

netbee

这是一个用ARX做的自定义对象。

当然用LISP是不能自定义对象的。但可以实现你说的功能，就是要用到反映器了。

橄榄滋味

请斑竹给个类似这样的例子和有关反映器的知识吧

LUCAS

;;BY LUCAS(龙龙仔)
;;1.序号球是属性图块,当鼠标带着序号球移
;;  动时引线尾线始终保持指向圆心
;;2.因为是属性图块,可以修改序号球中的数字
;;3.放大缩小序号球,引线尾线也可以保持指向圆心
;;4.当图档使用过本程序,只要程序放在搜寻路径上,
;;  当再打开图档时可自动加载

;;PS:Vlisp只能做到类似autocad的leader功能
;;   故单独移动leader时,序号球不会跟着动

http://free5.ys168.com/?lucas-lai
oso.rar  序号球

橄榄滋味

谢谢，功能十分强大，除了属性块不能跟着尺寸比例变化外，其余功能都很好，而且避免了代理图形限制。在软件环境下，它具备强大移动功能，离开了软件环境，它就是一般的AutoCAD图元，非常好。只是我不喜欢它规定的图层，我不希望输入球大小，我希望在程序中给它个默认值，然后当我用它时，它会根据我的尺寸比例自己确定大小倍数。如果能找到这样的源代码改改该多好啊

LUCAS

只是我不喜欢它规定的图层
=>重定义 NOS1图块即可

程式中给它个预设值
=>程序中球的大小预设值=(* 4 (getvar "DIMSCALE"))修改一次后就会记录

橄榄滋味

是呀，我知道这么改，可是找不到源码怎么改。如果仅在使用时输入(* 4 (getvar "DIMSCALE"))
就没多大意思了，希望能找到源码

xbdx

LUCAS  的程序不错，能提供源码吗？谢谢！
xbsteel@163.com

LUCAS

最初由 橄榄滋味 发布
[B]是呀，我知道这么改，可是找不到源码怎么改。如果仅在使用时输入(* 4 (getvar "DIMSCALE"))
就没多大意思了，希望能找到源码 [/B]

程序中有P选项

指令: OSO
指定引线起点 /[记号直径<4>][数字<1>](P): P
记号直径<4>:
起始数字<1>:

橄榄滋味

对不起，这样不行。你能给我源码吗？
mzrevol@sina.com
命令:  OSO
指定引线起点 /[记号直径<4.00>][数字<1>](P): p
记号直径<4.00>: (* 4 (getvar "DIMSCALE"))
无法重复进入 LISP。
需要数值.

LUCAS

那是程序的初始值,你给数字即可
命令: OSO
指定引线起点 /[记号直径<4.00>][数字<1>](P): p
记号直径<4>:50
起始数字<1>: 6

;;计划增加功能
;;1.单独移动leader时,序号球也会跟着动
;;2.同时copy引线&序号球时,反应器会加在copy出来引线&序号球上
;;3.copy出来的序号球会自动增加数值
;;4.序号球数字当在100~9999时会自动调整宽度