请教一下各位如何才能实现标注的修改

HORSE_XU

我想把左边的标注修改成右边为50的标注，好像标注里组码为42的信息是个只读值，我用entmod和subst修改不了呀，能提供下思路不？
倾斜的角度是不变的。应该用什么函数实现撒~~~

eachy

一 不建议直接改数值，不符合精确制图
二 可以改 特性管理器中有文字替代，可以查dxf组码修改，一般用特性管理器即可

HORSE_XU

eachy 发表于 2013-5-22 23:03
一 不建议直接改数值，不符合精确制图
二 可以改 特性管理器中有文字替代，可以查dxf组码修改，一般用特性 ...

我的意思不是改文字，而是要改它真实的测量值，就是原本是63，想CAD用鼠标拉那样，拉到实际值为50，请问用LISP该改什么呢？

eachy

13 14是控制标注点，要有一定计算会修改试试

Lispboy

修改组吗 13,14 ，试试。就是尺寸的夹点。

HORSE_XU

eachy 发表于 2013-5-22 23:11
13 14是控制标注点，要有一定计算会修改试试

你的意思是取得组码是13,14这两个标记点的坐标，然后通过用subst来替换实现，对吧？如果这样的话，是否需要求得角度，然后相当重新创建一个50的坐标，我可以这样理解吗

Lispboy

帮你写了个测试程序，修改组吗13和14，程序是基本代码，实际用要加其他判断。




[pcode=lisp,true]
(defun c:TT()
   (if (and (setq e (car (entsel)))
            (setq pt (getpoint "\nPick a Point:"))
       )
      (progn
         (setq ed (entget e)
               old (assoc 13  ed)
               new (cons 13 pt)
               ed (subst new old ed)
         )
         (entmod ed)
      )
   )
   (princ)
)

[/pcode]

HORSE_XU

Lispboy 发表于 2013-5-22 23:12
修改组吗 11 12 13 ，试试。就是尺寸的夹点。

如果修改夹点，如果对齐标注它是倾斜的，是否需要计算下它倾斜的角度

Lispboy

HORSE_XU 发表于 2013-5-22 23:15
你的意思是取得组码是13,14这两个标记点的坐标，然后通过用subst来替换实现，对吧？如果这样的话，是否需 ...

实际那个13,14点你需要计算出来，如你说的根据50角度啥的，算出来，就修改13,14

HORSE_XU

Lispboy 发表于 2013-5-22 23:21
帮你写了个测试程序，修改组吗13和14，程序是基本代码，实际用要加其他判断。

水平和垂直的可以做得到，如果是倾斜的话，是否要求得10和14与水平的角度？

Lispboy

HORSE_XU 发表于 2013-5-22 23:24
水平和垂直的可以做得到，如果是倾斜的话，是否要求得10和14与水平的角度？

你要是鼠标点取点的话，直接把点给组吗13或者14就成了。50你不用改，除非你想连角度也改了。不过需要注意的是鼠标点取的都是UCS下的点，要转换成WCS点，程序才能适合UCS下。

Lispboy

HORSE_XU 发表于 2013-5-22 23:24
水平和垂直的可以做得到，如果是倾斜的话，是否要求得10和14与水平的角度？

50是角度，如果你想让两个尺寸界线一齐的话，你要修改14点，那么你得根据转角和13点和你鼠标点取的点，算出14点的准确坐标。

HORSE_XU

Lispboy 发表于 2013-5-22 23:28
你要是鼠标点取点的话，直接把点给组吗13或者14就成了。50你不用改，除非你想连角度也改了。不过需要注意 ...

我的意思是：用entsel取得图元之后，然后用getreal让用户输入一个数字，然后这个标注角度不变，左右的尺寸线长度不变，就仅仅是缩小为50，是这个意思

Free-Lancer

缩小也要指定基点啊？13 14中间?来自: Android客户端

Lispboy

HORSE_XU 发表于 2013-5-22 23:24
水平和垂直的可以做得到，如果是倾斜的话，是否要求得10和14与水平的角度？

组吗50 得到转角，根据P13用 POLAR 距离 角度 算出 P14，修改后，两边的尺寸界线就一齐了。