支持英制的坐标标注，有源码，求助修改增加负号

hadessna · 发表于 2022-4-21 17:04

本帖最后由 hadessna 于 2022-4-21 17:06 编辑

附件的cad是英标格式的标注样式，如果是毫米单位的标注样式，这个lisp会标出毫米单位的坐标。
现在问题是这个坐标标注不能识别正负坐标值，有没有大佬帮忙修改一下？能识别当前UCS的原点坐标标出负值？
谢谢~~~

e2002 · 发表于 2022-4-22 11:00

看了一下代码，第一个函数是获取对象的包围盒坐标值，后面一个函数主要是选点，然后用command创建dimordinate对象，炸开，获取标注中的文字内容、字高（两次，分别获取X，Y），用于后续创建leader。
有几句没有用到的语句，按功能描述，你贴出的代码应该不全。

对于坐标值等数值的获取，getpoint的返回值就有了，上面的流程基本上是没有意义的。

对于这种直接标注的点坐标值的需求，不会编程的，做一个包含坐标值Field的动态块就好了。

另外：变量名称请不要如此不规范，你自己看都不能一眼就看明白其代表什么吧？请参考：

...
(setq ptBase (getpoint))
...
(setq sContent (cdr (assoc 1 enlist))
...

hadessna · 发表于 2022-4-22 16:11

本帖最后由 hadessna 于 2022-4-22 16:14 编辑

e2002 发表于 2022-4-22 11:00
看了一下代码，第一个函数是获取对象的包围盒坐标值，后面一个函数主要是选点，然后用command创建dimordina ...

原理上是你说的那样。
我自己断断续续的学了大半年实在是学不会，只会一些很基础的东西。这些代码是花钱托人弄的，没有售后，ε=(′ο｀*)))唉。
getpoint的返回值是毫米单位的数值，我需要用英标的标注数值~~~~以前跟同事一起弄过一个按单位转换计算输出结果的lisp，也没弄好，有很多bug

坐标值动态块使用限制比较大，我们是一张图纸里面放很多平面图，然后每张平面图设置一个0,0坐标原点，需要坐标标注的时候使用ucs修改原点坐标。如果用动态块那些数值会跟着UCS边的

和尚777 · 发表于 2022-4-22 16:34

777777777

hadessna · 发表于 2022-5-7 08:55

和尚777 发表于 2022-4-22 16:34
777777777

谢谢大佬，有用~~~~~

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

[源码] 支持英制的坐标标注，有源码，求助修改增加负号

本帖子中包含更多资源

点评

本帖子中包含更多资源