楼主确定是你自己写的？
如果真是你写的，哪里不智能，要智能成啥样？你自己不说，谁知道？
求助由于本人工作中经常画综合管廊纵断面，是根据道路专业的纵断面上画的，所以表格中的标高都需要人工根据道路的线读取，然后标注在下方的表格中，人工做，相当繁琐，于是我开始想法子接触CAD二次开发，逛了明经论坛，看了一个多月相关资料。其实程序的核心思想就是纵断面桩号线与要标注的地面线或者管廊顶板线的交点Y坐标与标尺上参考点的Y坐标的差值加上标尺上的读数就是标注点的标高值。我自己写了一个简单的小程序，基本实现了想法，但是最近想改进一下，无奈水平有限，特向各位老师求助。改进想法是这样的，能不能输入程序命令后，程序提示选择点击“标尺参考点”，并输入读数，输入纵向绘图比例（此参数用于坐标换算），然后提示选择“设计路面线”，然后提示选择“纵断面桩号线”这样一次性选择所有的“纵断面桩号线”后，在表格“路面设计高程”一行点击一下，就可以标出所有“纵断面桩号线”与“设计路面线”的交点高程。我自己写的源程序及Gif在附件里，求大神帮改进，万分感谢！
yzuzhou 发表于 2018-10-31 18:32
这个可能电脑问题，经常会多出那两个fas/lsp文件，大家下载了删除了就行
把源码贴出来吧 ;指定标高尺参考点坐标
(defun C:zbg (/ pt1 y0 zbl bl pt2 zg y1 y2 pt3 y4 x y realstr pt ag dimzinold )
(princ "\n**ZY工具箱纵断面标高模块,**\n**本命令快捷键zbg**")
(setq pt1 (getpoint "\n 单击指定标高尺参考点"))
(setq y0 (getreal "\n 输入标尺参考点读数"))
(setq zbl (getreal "\n 输入纵向比例，例如100或者200"))
(setq bl (/ 1000 zbl))
(setq pt2 (getpoint "\n 单击指定文本第一对齐点")) ;后续提取其y坐标
(setq zg (getreal "\n 输入文字高度")) ;指定文字高度
(setq y1 (cadr pt1)) ;将标尺基点的y坐标赋值给y1变量
(setq y2 (cadr pt2)) ;将文本基点的y坐标赋值给y2变量
(while (/= zbl 0)
(setq pt3 (getpoint "\n 单击指定需要标注的断面点"))
(setq y4 (cadr pt3))
(setq x (car pt3))
(setq y (+ (/ (- y4 y1) bl) y0))
(setq dimzinold (getvar "DIMZIN"))
(setvar "DIMZIN" 0)
(setq realstr (rtos y 2 3)) ;将y转换为三位小数格式的字符串待输出
(setq pt (list x y2 0))
(setq ag (/ pi 2))
;以下程序将在在坐标为（x,y2）的地方输出纵坐标字符串
(entmake (list '(0 . "TEXT") (cons 1 realstr) (cons 10 pt) (cons 40 zg) (cons 50 ag)))
)
;执行完rtos以后恢复
(setvar "DIMZIN" dimzinold)
)
;源程序这个样子的，请各位大侠斧正:handshake
yzuzhou 发表于 2018-10-31 18:32
这个可能电脑问题，经常会多出那两个fas/lsp文件，大家下载了删除了就行
机器中毒了，所在局域网及所有带dwg文件的移动存储等，搜索所有的那两个文件，除了在acad安装目录下的要检查下是否原装的文件（从日期和文件内容大小可以判断出来），同时删除所有的文件，就可以根除了。
请更新自己的附件，不要带病毒文件，否则就是在传播病毒。 知道有病毒
上传前也不处理
也是醉了 建议楼主把附件更新下，演示图之类的可以单独放。
或者版主把附件直接删了吧。。。 高手指点指点指点 lostbalance 发表于 2018-11-1 15:43
建议楼主把附件更新下，演示图之类的可以单独放。
或者版主把附件直接删了吧。。。
分卷附件已删除，已经不能完整下载解压了。楼主请上传无病毒的附件。 还不够智能，请大神优化？？？
这个也太简述了，哪里不够智能？你想变成什么样子？太懒了。
这个不说清楚，别人怎么知道你怎么想的？
还上传有毒附件。
页:
1
[2]