[求助]跪求CAD两点连线程序

weiyun8412 · 发表于 2010-7-2 22:14:00

本帖最后由作者于 2010-7-8 10:45:20 编辑

谁能帮我编一个单点号与双点号相连的程序，画一条直线把1点号与2点号相连，线断开，画一条直线把3点号与4点号相连，然后一直这样连线，如附件图示一.附件图示二是依点号用多段线连接然后闭合,

附件我已上传，附近我多上传了一个下载其中一个就可以了，

本人先感谢各位大哥，大姐们！

点号文本格式如下，格式为DAT格式.文本格式如下是,点号,,Y,X,Z

1,,95627.4450,31043.6450,28.7820
2,,95626.5460,31040.4170,29.0580
3,,95626.8920,31041.6020,28.9930
4,,95631.0180,31040.6380,29.2070
5,,95626.9330,31042.2100,28.9930
6,,95622.0840,31038.8780,29.3120
7,,95623.6240,31039.9740,29.2010
8,,95617.5520,31041.0470,29.4400
9,,95627.5010,31043.7780,28.8500

weiyun8412 · 发表于 2010-7-8 00:07:00

不会是没有人会吧，怎么久都没有消息

AMTONNY · 发表于 2010-7-8 08:45:00

看不懂你的附件哦，词不达意的

liu_kunlun · 发表于 2010-7-8 09:52:00

本帖最后由作者于 2010-7-8 21:45:15 编辑

(defun c:tttt ( / file fid p1 p2 )
   (if (and (setq file (getfiled "选择文件" "" "*" 8))
            (setq fid (open file "r"))
       )
      (while
          (and (setq p1 (read-line fid))
               (setq p2 (read-line fid))
          )
          (while (/= "," (substr p1 1 1)) (setq p1 (substr p1 2)))
          (while (/= "," (substr p2 1 1)) (setq p2 (substr p2 2)))

          (command "line" (substr p1 3) (substr p2 3) "")
      )
    )
    (if fid (close fid))
    (princ)
)

weiyun8412 · 发表于 2010-7-8 19:07:00

程序不可以用

liu_kunlun · 发表于 2010-7-8 21:28:00

(command "line" (substr p1 3) (substr p2 3） "")中(substr p2 3）的右括号改为西文右括号即可

weiyun8412 · 发表于 2010-7-8 21:48:00

谢谢，完全可以用非常感谢你，

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

[讨论] [求助]跪求CAD两点连线程序

本帖子中包含更多资源

[求助]