根据坐标文件批量插入图块

香远益清

(defun c:chk()  (setvar "cmdecho" 0)  (setq fil (getfiled "选择点坐标文件" "" "txt" 0))  (setq name_block (getstring ">>>>>>>>输入要插入的块的名称 <ESC退出> :"))  (setq x (open fil "r"))  (setq oldcolor (getvar "cecolor"))  (setvar "cecolor" "1")  (setvar "osmode" 0)  (setq p1 (read-line x))  (setq pt p1)  (command "_.insert" name_block p1 "" "" "")  (command)  (while (setq p1 (read-line x))  (command "_.insert" name_block p1 "" "" "")  (command)  )  (close x)  (setvar "cecolor" oldcolor)  )

香远益清

网上搜索的插件，调试不成功，总有小毛病，请高手帮忙看看

tzfcn

这个想法不错，可以省去很多的工作。

chrive

这个功能好，适合做竣工图用呀

lisperado

虽然不是很了解，可参考以下函数

bit.ly/2SjjJNR
无权限发链接，来自cadtutor
forum/topic/64175-theoretical-and-actual-point-x-and-y-differeces/

无需插入块
(delta p1 p2 pt)
p1 - 基点
p2 - 第二点
pt - 插入点
将函数加入你所写的源码
参考两个TXT坐标文件以批量实现插入箭头&文字

香远益清

纯文本TXT文件内容如下
点号1，X1，Y1，△X1，△Y1
点号2，X2，Y2，△X2，△Y2
点号3，X3，Y3，△X3，△Y3
...................................
根据纯文本TXT文件中X、Y值在其相应的位置处画出两个方向的垂直箭头，
并将对应的△X，△Y值标注在箭头处
坐等高手修改程序，相信许多人盼望着！！！！

qqp741005

适合做竣工图

lisperado

香远益清 发表于 2019-12-24 09:10
纯文本TXT文件内容如下
点号1，X1，Y1，△X1，△Y1
点号2，X2，Y2，△X2，△Y2

既然你已知偏差值，
EXCEL改为TXT格式文件内容
点号1，X1，Y1，(X1+△X1)，(Y1+△Y1)
点号2，X2，Y2，(X2+△X2)，(Y2+△Y2)
点号3，X3，Y3，(X3+△X3)，(Y3+△Y3)

(delta p1 p2 pt) ; 输入条件
p1 - 基点
p2 - 第二点
pt - 插入点

1. (delta (list X1 Y1) (setq pt (list (+ X1 △X1) (+ Y1 △Y1) )) pt )

(delta (list X1 Y1) (setq pt (list (+ X1 △X1) (+ Y1 △Y1) )) pt )

香远益清

lisperado，你好，写个完整的传上来，让大家受益。

香远益清

最近的帖子不多啊，都是老帖子，顶一个上去，有问题，才能解决问题嘛，欢迎接球！！！

香远益清

怎么人气没有以前旺了，过年了都忙着数钞票？

香远益清

没人气呀，再顶最后一次

nuxingxp

老，你这个改好没有？

小康_U8y3Y

要是反向能把坐标都标注出来就好了

香远益清

问题早已解决了，且早已做了优化处理，引用了VL-string-position函数读取数据，一键搞定。谢谢朋友们的支持。