明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1806|回复: 1

[提问] 【已解决】请教关于选择集 错误: 参数类型错误: lselsetp nil

[复制链接]
发表于 2019-1-16 09:01 | 显示全部楼层 |阅读模式
1明经币
本帖最后由 669423907 于 2019-1-16 09:35 编辑


各位大师早上好,请教一个关于选择集出现错误的问题: 错误: 参数类型错误: lselsetp nil
不知道要改哪里file:///C:\Users\ADMINI~1\AppData\Local\Temp\G@YVKCPZR)X}3UKB(_VF`LW.gif
论坛上搜索出两条,但是没有说明具体怎么改,求助一下

(defun c:13(/ ssK ssB dim ssX ssZ ssT gy o)
(setq tz nil o nil ssK nil ssB nil dim nil ssX nil ssZ nil ssT nil gy nil)
(if (setq ss (ssget"i"))
;——————————————————————————————————————————智能修改
(progn
(setq ssK (ssget "p" '((8 . "*图框*")(0 . "lwpolyline")))) ;图框缩放

(command "Select" ss "")
(setq ssB (ssget "p" '((8 . "*表格*")(0 . "insert")))) ;图框缩放

(command "Select" ss "")
(setq dim (ssget "p" '((0 . "dimension")))) ;修改标注字高

(command "Select" ss "")
(setq ssX (ssget "p" '((8 . "*虚线*")))) ;修改线型比例

(command "Select" ss "")
(setq ssZ (ssget "p" '((8 . "*中心线*")))) ;修改线型比例

(command "Select" ss "")
(setq ssT (ssget "p" '((0 . "hatch")(2 . "~SOLID")))) ;修改填充比例

(command "Select" ss "")
(setq gy (ssget "p" '((0 . "circle,arc")))) ;改直径或加中心线

(if (and (/= ssK nil) (/= ssB nil) (= (sslength ssK)1) (= (sslength ssB)1)) (progn (setq tz 1) (ssK_sf) ) ) ;图框缩放

(if (and(not tz) (/= dim nil) (or (/= ssX nil) (/= ssZ nil) ) ) (progn (setq tz 1) (bzzg_xxbl) ) ) ;修改标注字高或线型比例

(if (and(not tz) (/= dim nil) ) (progn (if (= (sslength dim) 1) (setq tz 1) ) (sssetfirst nil dim) (bzzg) (setq tz 1) ) ) ;修改标注字高

(if (and (not tz) (/= ssX nil) ) (progn (setq tz 1) (sssetfirst nil ssX) (zxx_xxbl) ) )  ;修改虚线比例

(if (and(not tz) (/= ssZ nil) ) (progn (setq tz 1) (sssetfirst nil ssZ) (zxx_xxbl) ) ) ;修改中心线比例

(if (and (not tz) (/= ssT nil) ) (progn (setq tz 1) (sssetfirst nil ssT) (c:h,) ) ) ;修改填充比例与角度

(if (and (not tz) (= (sslength gy)1) )
(progn (setq tz 1) (sssetfirst nil gy)
(if (getpoint "\n 左键改直径,右键加中心线")
(c:gy) (c:zxx)
) ) ;改圆或圆弧直径
(progn (sssetfirst nil gy) (c:zxx) ) ;加中心线
)

(if (not tz) (progn (sssetfirst nil ss) (c:zxx) ) ) ;加中心线(这一项无法运行,提示 错误: 参数类型错误: lselsetp nil




(setq tz nil ssK nil ssB nil dim nil ssX nil ssZ nil ssT nil gy nil)
)

(xgbzzg) ;修改标注字高

(princ))

"觉得好,就打赏"
还没有人打赏,支持一下
 楼主| 发表于 2019-1-16 09:32 | 显示全部楼层
找到问题了 (if (and (not tz) (= (sslength gy)1) )
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-29 05:22 , Processed in 0.235481 second(s), 23 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表