【已解决】帮看看这个代码，执行后没反应

立冬 · 发表于 2019-1-14 10:39:15

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 newer 于 2019-1-14 17:46 编辑

这个是按坐标批量插入块的代码。pdata.txt是坐标文件，block是块文件。
(defun c:pin ()
(setq osm (getvar "osmode"))
(setvar "osmode" 0)
(setq lid (open "d:\\pdata.txt" "r"))
(while (setq lind  (read-line lid))
(setq at (pofs lind ","))
(setq y1 (atof (substr lind (+ 1 at))))
(setq x1 (atof (substr lind 1 (- at 1))))
(setq p1 (list x1 y1))
(command "-insert" "d:\\block.dwg" p1 1 1 "0")
)
( close lid)
(setvar "osmode" osm)
(princ)
)
(DEFUN PofS(Soutxt subtxt / kk TLEN TPTXT tnb as)
(SETQ TLEN (STRLEN Soutxt))
(SETQ kk 1)
(SETQ as nil)
(SETQ stn (ascii subtxt))
   (WHILE (<= kk TLEN)
      (SETQ TPTXT (SUBSTR Soutxt kk 1))
      (SETQ tnb (ascii TPTXT))
      (if (= stn tnb) (setq  as kk))
      (SETQ kk (+ 1 kk))
      )
      (setq as as)
)

Lisphk · 发表于 2019-1-14 10:42:03

怎么个没反应法？你的这两个文件要放在D盘根目录

aisong220 · 发表于 2019-1-14 11:19:22

立冬 · 发表于 2019-1-14 13:42:12

Lisphk 发表于 2019-1-14 10:42
怎么个没反应法？你的这两个文件要放在D盘根目录

恩，调出来了！是基点没设置对，插入的时候位置错了！

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

[已解决] 【已解决】帮看看这个代码，执行后没反应

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。