LISP代码破坏图形

podam · 发表于 2022-7-5 23:43:43

嗨，我有同样的问题！！我运行了这个lsp程序，现在我在线型上有了点。有没有恢复此操作的解决方案？？请帮忙！
仅FONTALT设置为。暂时解决问题。。。

podam · 发表于 2022-7-5 23:48:59

你找到解决办法了吗？我在同一个lsp例程中遇到了同样的问题。。。。

ReMark · 发表于 2022-7-5 23:52:14

您是否有另一个使用丢失的线型的图形？

podam · 发表于 2022-7-5 23:56:05

我将此lsp应用于我的大多数文件，现在已被破坏：
;; 从CADTutor论坛下载

copy

(defun C:PSHX ()
 (vl-load-com)
 (vlax-for item
        (vla-get-textstyles
          (vla-get-ActiveDocument (vlax-get-acad-object))
        )
   (if
     (not
   (vl-filename-extension (setq fname (vla-get-fontfile item)))
     )
      (setq fname (strcat fname ".shx"))
   )
   (cond ((findfile fname) nil)
     ((findfile (strcat (getenv "WINDIR") "\\FONTS\" fname))
      nil
     )
     (t
      (vla-put-fontfile item "ltypeshp.shx")
      (princ "\nChange ")
      (princ fname)
      (princ " on ltypeshp.shx")
     )
   )
 )
 (princ)
)
(princ "\nPurge unreferenced shape files, Lisp Command : PSHX")

podam · 发表于 2022-7-5 23:58:56

加载一个空白文件我可以看到正确的线型，然后打开一个工作文件，线型是混乱的，直到我退出并重新加载autocad。。。

ReMark · 发表于 2022-7-6 00:02:09

我不太清楚lisp例程是如何工作的。告诉我，你有一个名为ltypeshp的文件吗。硬盘上的shx？如果是，日期和文件大小是多少？

这是您丢失的自定义线型吗？

podam · 发表于 2022-7-6 00:03:38

这是一张我不幸应用lsp的图纸
https://remon-my.sharepoint.com/personal/d_marmier_remon_fr/_layouts/15/guestaccess.aspx?guestaccesstoken=HNgveFVpVeWsQN%2fdEJ3QMLX1eJAh0e%2f3xcnIft5K6JE%3d&docid=02fd79c4e7ea446b98c9ee62d81513786

罪魁祸首在这里
https://remon-my.sharepoint.com/personal/d_marmier_remon_fr/_layouts/15/guestaccess.aspx?guestaccesstoken=wjyttjfu08ZJ8Q9l9tr9s9Z1J6o3tOCeeH6xhELtJuk%3d&docid=0d04b1b66ac194d02802441854645bc8c

有没有恢复lsp的想法？？