导出封闭形

Cavediver · 发表于 2012-7-6 09:39:34

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

ronjonp · 发表于 2012-7-6 10:00:27

使用 BASE 命令更改原点。

Cavediver · 发表于 2012-7-9 13:18:06

因为我在dxfout过程中找不到那个选项，我想你是说我应该在dxfout之前做这个？
(知道他们对假设的说法，我只是想我应该确定一下)

ronjonp · 发表于 2012-7-10 08:54:16

或者先写WBLOCK，然后再写DXFOUT

mjfarrell · 发表于 2012-7-10 09:05:52

这个线程
看到这个代码
不工作（我不知道为什么可能是DXFOUT命令），但显示的想法

copy

(defun c:dxft (/ fldia ss)
  (setq fldia (getvar "filedia"))
  (setvar "filedia" 0)
  (setq p1 (getpoint "\nSelect first point of export: "))
  (setq p2 (getcorner p1 "\nSelect second point of export: "))
  (setq ss (ssget "_W" p1 p2))
  
  (command "dxfout" "" ss "" "")
  (setvar "filedia" fldia)
  )

HasanCAD · 发表于 2012-7-16 05:48:37

发布不起作用的代码实际上对任何人都有帮助吗？
可能是一个很好的主意，但是如果实现它的代码不能；那么它仍然只是一个想法。

mjfarrell · 发表于 2012-7-16 06:30:05

正在工作

copy

(defun c:dxft (/ fldia p1 p2 ss)
  
  (setq fldia (getvar "filedia"))
  (setvar "filedia" 0)
  (setq p1 (getpoint "\nSelect first point of export: "))
  (setq p2 (getcorner p1 "\nSelect second point of export: "))
  (setq ss (ssget "_W" p1 p2))
  
  (command "dxfout" "" "o" ss "" "")
  (setvar "filedia" fldia)
  )

导出封闭形

发表回复

精选推荐