我来支持哦
snddd2000 发表于 2013-12-21 13:48
新手请教，这代码怎么变成可编译的lsp文件呀？
新手请教下，这代码怎么变成可编译的lsp文件？
;取得块名name
(setq en (car (entsel "\n选择块：")))
(or
(eq "TCH_BLOCK_INSERT" (cdr (assoc 0 (entget en))))
(eq "INSERT" (cdr (assoc 0 (entget en))))
(alert "没有选择块!")
)
(setq xobj (vlax-ename->vla-object en))
(setq name (vlax-get-property xobj 'EffectiveName))
;;;===========================================================
;;; 函数名: ssgetblock-X2
;;; 功能: 通过窗口选择方式选择指定名称列表中的图块
;;; 参数:
;;; pt1 - 窗口选择第一点
;;; pt2 - 窗口选择第二点
;;; blknamelst - 图块名称列表
;;; 返回值: 包含符合条件图块的选择集
;;; (setq pt1 (getpoint "\n指定第一角点: "))
;;(setq pt2 (getcorner pt1 "\n指定第二角点: ")))
;;(ssgetblock-X2 pt1 pt2 '("DESK" "COMPUTER"))
;;;===========================================================
(defun ssgetblock-X2 ( pt1 pt2 blknamelst / ss0 n count ent0 str BlkName0)
(setq ss0 (ssget "X" '((0 . "INSERT"))))
(setq n 0
count (sslength ss0)
str ""
)
(repeat count
(setq ent0 (ssname ss0 n))
(setq BlkName0 (vla-get-effectivename
(vlax-ename->vla-object ent0)
)
)
(if (member BlkName0 blknamelst)
(setq str (strcat str ",`" (cdr (assoc 2 (entget ent0)))))
)
(setq n (1+ n))
) ;end repeat
(ssget "W" pt1 pt2(list (cons 0 "INSERT") (cons 2 str)))
)
;;收集图中的所有此块名的dxf的2组码，作为ssget的过滤条件
(defun ssgetblock (blkname / ss0 n count ent0 str BlkName0)
(setq ss0 (ssget "X" '((0 . "INSERT"))))
(setq n 0
count (sslength ss0)
str ""
)
(repeat count
(setq ent0 (ssname ss0 n))
(setq BlkName0 (vla-get-effectivename
(vlax-ename->vla-object ent0)
)
)
(if (= blkname BlkName0)
(setq str (strcat str ",`" (cdr (assoc 2 (entget ent0)))))
)
(setq n (1+ n))
) ;end repeat
(ssget (list (cons 0 "INSERT") (cons 2 str)))
)