李钊伟2012 发表于 2019-4-6 17:11:04

检查代码时，编译输出窗口里是这样子的，每个函数都是类似，我只发一个。

(defun c:rein ( );选取图层名rein的多段线
(setq ss (ssget '(( 8 . "REIN"))))
(sssetfirst ss ss))

检查代码时，编译输出窗口里是这样子的青色文字，每个函数都是类似，我只发一个。
; === 顶层统计:
; 全局变量: (SS)
; 函数定义 (带参数): ((C:REIN . 0))
; 检查完成.

1291500406 发表于 2019-4-10 10:58:12

李钊伟2012 发表于 2019-4-10 10:34
现在改成，選取圖層名為rein的所有图元呢？
(defun c:rein ( )(sssetfirst nil (ssget "x" '(( 8 . "rein")))))

1291500406 发表于 2019-4-7 11:58:54

本帖最后由 1291500406 于 2019-4-7 12:18 编辑

我写代码都是直接用记事本写的

(defun c:rein ( );定义命令rein
(setq ss (ssget '((0 . "lwpolyline")( 8 . "rein")))) ;选取图层名rein的多段线
(sssetfirst nil ss);加入选择集
(princ);程序结束
);end defun



李钊伟2012 发表于 2019-4-9 20:07:05

1291500406 发表于 2019-4-7 11:58
我写代码都是直接用记事本写的

(defun c:rein ( );定义命令rein


谢谢修改，我直接在命令栏输入(setq ss (ssget '(( 8 . "REIN")))) 是可以运行的，利用SSGET不能直接选某一图层吗?

1291500406 发表于 2019-4-9 21:00:56

李钊伟2012 发表于 2019-4-9 20:07
谢谢修改，我直接在命令栏输入(setq ss (ssget '(( 8 . "REIN")))) 是可以运行的，利用SSGET不能直接选某 ...

可以選取某圖層，你那個備注是選取圖層名為rein的多段綫所以加了(0 . "lwpolyline")

李钊伟2012 发表于 2019-4-10 10:34:47

1291500406 发表于 2019-4-9 21:00
可以選取某圖層，你那個備注是選取圖層名為rein的多段綫所以加了(0 . "lwpolyline")

现在改成，選取圖層名為rein的所有图元呢？
页: [1]
查看完整版本: 检查代码时，编译输出窗口里是这样子的，每个函数都是类似，我只发一个。