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

LISP代码破坏图形

嗨，我有同样的问题！！我运行了这个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论坛下载
(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的想法？？

podam 发表于 2022-7-6 00:08:13

我保存了文件ltype。shx（尺寸130，10月）日期2005年7月6日，我相信它是原始autocad，因为这是我们所有工作站的共享支持文件。
 
非常感谢

podam 发表于 2022-7-6 00:10:02

这正是我在这里发现的问题
http://forums.autodesk.com/t5/AutoCAD-2013-2014-DWG-Format/linetypes-suddenly-not-showing-shapes-txt/td-p/3743602/page/2

ReMark 发表于 2022-7-6 00:12:58

我打开了第一幅画。我应该看到什么？指定要检查的特定线型。
页: [1] 2
查看完整版本: LISP代码破坏图形