[求助]：请教 lips 下 wblock 的用法

shute05 · 发表于 2006-12-5 12:17:45

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

请教如何将图块自动生成dwg 文件

Underway · 发表于 2006-12-5 13:25:35

;;; **** 请先建 C:\BlkTest\ 资料夹

(defun table (s / d r)
(while (setq d (tblnext s (null d)))
(setq r (cons (cdr (assoc 2 d)) r))
)
)
(foreach blk (table "BLOCK")
(command "wblock" (strcat "c:\\BlkTest\\" blk) "=")
)

;; 此仅仅是雏型,您得自行修订以合需求

phoenixdjq · 发表于 2006-12-5 13:33:30

(defun c:jj()
(setq aa (entsel "\n select objece:"))
(setq a (cadr aa))
(setq aaa (car aa))
(command "._wblock" "e:\\jjdd.dwg" "" a aaa "")
)

shute05 · 发表于 2006-12-6 08:45:19

谢谢楼上二位指点，我试试

账号		自动登录	找回密码
密码			立即注册

[求助] [求助]：请教 lips 下 wblock 的用法

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

浏览过的版块

[求助] [求助]：请教 lips 下 wblock 的 用法

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

浏览过的版块

[求助] [求助]：请教 lips 下 wblock 的用法