帮写选图导出DXF的LSP谢谢

twtysoi

newer 发表于 2019-5-16 11:53
文字有没有乱码和保存什么版本无关。

我另一个软件是**的,他们字体不同,我试了很多次2004版以上DXF他读出来字都不对

newer

twtysoi 发表于 2019-5-16 11:58
我另一个软件是**的,他们字体不同,我试了很多次2004版以上DXF他读出来字都不对

你要把字体SHX文件，拷贝到2004下的FONTS目录里面去

王鹏_pBZlo

twtysoi 发表于 2019-5-16 11:29
王哥,哪个基准点默认为0.0怎么弄,可以不用点,默认点就好,

把
(setq pt (getpoint "\n插入基点:"))
改成
(setq pt (list 0 0))

twtysoi

twtysoi 发表于 2019-5-16 11:45
这样可以吧,王哥,

用DXFOUT可不可以,你好,哪个写埠有点卡

王鹏_pBZlo

twtysoi 发表于 2019-6-8 08:33
用DXFOUT可不可以,你好,哪个写埠有点卡

原来没用过dxfout的命令,修改了一下你试试

(defun c:tt( )
        (defun wp:onestyle( sty / stlist cst num tsty)
        (defun search_list( search_key / new_ new_list searchkey)
        (setq searchkey "" new_list nil)
        (while (setq new_ (cdr (assoc 2 (tblnext search_key searchkey))))
         (setq new_list (cons new_ new_list))
         (setq searchkey nil)        )
        (setq new_list (reverse new_list)))
        (setq stlist (search_list "style"))
        (setq tsty (getvar "textstyle"))
        (setq num 0)
        (while (setq cst (nth num stlist))
                (command "style" cst sty)
                (while (= 1 (getvar "cmdactive")) (command ""))
                (setq num (1+ num))
        )
        (setvar "textstyle" tsty)
        )
        (wp:onestyle "txt,hztxt.shx")       
        (command "dxfout" "D:\\XUJIENC\\DXF\\新块.DXF" "V" "2004" "")
        (princ)
)

twtysoi

可以,可不可选图呀,好像是全出的,

王鹏_pBZlo

dxfout命令好像不能选择对象
来自: 微社区

twtysoi

手动的可以,要点选项就有

王鹏_pBZlo

twtysoi 发表于 2019-6-8 11:33
手动的可以,要点选项就有

这下应该可以了
(defun c:tt( / sset)
        (defun wp:onestyle( sty / stlist cst num tsty)
        (defun search_list( search_key / new_ new_list searchkey)
        (setq searchkey "" new_list nil)
        (while (setq new_ (cdr (assoc 2 (tblnext search_key searchkey))))
         (setq new_list (cons new_ new_list))
         (setq searchkey nil)        )
        (setq new_list (reverse new_list)))
        (setq stlist (search_list "style"))
        (setq tsty (getvar "textstyle"))
        (setq num 0)
        (while (setq cst (nth num stlist))
                (command "style" cst sty)
                (while (= 1 (getvar "cmdactive")) (command ""))
                (setq num (1+ num))
        )
        (setvar "textstyle" tsty)
        )
        (wp:onestyle "txt,hztxt.shx")
        (setq sset (ssget))
        (command "dxfout" "D:\\XUJIENC\\DXF\\新块.DXF" "V" "2004" "O" sset "" "")
        (princ)
)

twtysoi

王鹏_pBZlo 发表于 2019-6-8 16:25
这下应该可以了
(defun c:tt( / sset)
        (defun wp:onestyle( sty / stlist cst num tsty)

可以了,多谢,王哥,

王鹏_pBZlo

其实这种用cad命令来执行的操作，自己按要求简单地给予响应就可以了。例如，本例中修改字形占了绝大部分，另存就是最后的2句，(setq sset (ssget))用于把需要的操作对象赋值给变量sset,后一句就是用CAD的命令dxfout操作生成dxf文件
来自: 微社区

twtysoi

王鹏_pBZlo 发表于 2019-6-11 07:27
其实这种用cad命令来执行的操作，自己按要求简单地给予响应就可以了。例如，本例中修改字形占了绝大部分， ...

哦,是的,多谢,我还在初学期.

twtysoi

twtysoi 发表于 2019-6-11 08:21
哦,是的,多谢,我还在初学期.

我还以为,这种操作要选窗口的,前面要加什么代码,下次,可以自己试着改下了