[LISP]关于group name

spring

dispbbs.asp?boardid=3&star=2&replyid=10443&id=19055&skin=0&page=1 ------------------------------------------- 使用扩展数据可以存储任意类型的信息。例如，绘制一个图元（例如直线或圆），然后输入下列代码将扩展数据附着到图元上： (setq lastent (entget (entlast))) ; 获得最新图元定义数据的关联表
(regapp "NEWDATA") ; 注册应用名称
(setq exdata ; 设置 exdata 变量等于
'((-3 ("NEWDATA" ; 新的扩展数据
(1000 . "This is a new thing!") ; 本例中是一个文本字符串
)))
)
(setq newent
(append lastent exdata)) ; 向图元表中增加新的数据表 (entmod newent) ; 用新的定义数据修改图元 为了验证扩展数据已被附着到图元上，输入下列代码，并选择该对象： (entget (car (entsel)) '("NEWDATA")) 本样例显示了在图元上附着扩展数据的基本方法。 -------------------------------------------------------- 零件清单输出我没有，我用的是 PressCAD 画孔的倒是有

aaddff

谢谢spring兄，其实我以前用的日本软件也是用窗体的，但它是可以动态添加图层什么的，而生成的孔跟CAD里的group差不多，我也是在模仿它的那些东西

spring

请问这是怎么搞出来的??


下面是画螺丝的程序,可以配合上次的注解输出.有很多地方不是很理想我想改进它,可是一直还没有去搞,我现在螺丝的尺寸全部在程序里定好了我想把它写在文本上用户可以更改还有加工孔间隙是不可选的我想把它改为可选的用户可以输入间隙


欢迎多提意见

aaddff

(defun c:q (/)
(menucmd "P0=SNAP")
(menucmd "P0=*")
)
试一下就知道了 我是这样标注的

spring

圆坐标输出



呵呵,习惯不一样

aaddff

是啊，习惯不一样，你应该是在台资厂了，他们都是这样的，还有 是拉坐标的

spring

呵呵,是的

小雪

不好意思，我没有看懂？？？

aaddff

下面是画螺丝的程序,可以配合上次的注解输出.有很多地方不是很理想我想改进它,可是一直还没有去搞,我现在螺丝的尺寸全部在程序里定好了我想把它写在文本上用户可以更改还有加工孔间隙是不可选的我想把它改为可选的用户可以输入间隙

东西在哪里？


没看到啊

不好意思，我没有看懂？？？

你是指什么？

aaddff

to spring:


当你的孔移位后，能不能实现坐标跟着变啊？


或执行一条命令后让其坐标改变啊？