改一段代码，谢谢

8350

这是插入指定文件文件的lsp，但是运行后每次都要填写：插入点，比例因子，旋转哦，麻烦，能否改成插入指定位置后直接插入到：插入点为0,0,0  比例为1，旋转为0，谢谢，我不会lsp

;插入基本农田
(DEFUN C:crjbnt( )
(SETVAR "CMDECHO" 0)
(SETVAR "OSMODE" 0)
  (COMMAND "_INSERT" (strcat"*" "D:/地类基本农田数据/基本农田.dwg" )(getpoint "\n图块插入点:" ))
  (princ)  
)

Andyhon

(COMMAND "_INSERT" (strcat"*" "D:/地類基本農田數據/基本農田.dwg" )(getpoint "\n圖塊插入點:" ))
===>
(COMMAND "_INSERT" (strcat"*" "D:/地類基本農田數據/基本農田.dwg" ) '(0 0 0) 1 1 0)

8350

谢谢，收到，感谢

8350

Andyhon 发表于 2016-5-14 13:11
(COMMAND "_INSERT" (strcat"*" "D:/地類基本農田數據/基本農田.dwg" )(getpoint "\n圖塊插入點:" ))
===> ...

高手你好，怎么插入成功后插入图形不在原来的位置，偏移很多呢？  全选图形后复制黏贴原坐标到图形确又可以，请教是什么原因引起的，麻烦看看

Andyhon

有可能是因 InsPoint ...
得核验文档 (*Dwg)

8350

Andyhon 发表于 2016-5-14 15:03
有可能是因 InsPoint ...
得核验文档 (*Dwg)

能帮我想想办法处理么？

Andyhon

得有样本供查验