6
21
15
初来乍到
(defun c:test () (setq obj (entsel "please select the dimension:-")) (setq ab (fix(getreal "please enter the value to change:-" ))) (command "dim1" "new" ab obj "") (princ) )
使用道具 举报
10
8258
8335
63
6297
6283
后起之秀
(entmod (subst (cons 1 (itoa ab)) (assoc 1 (entget (car obj))) (entget (car obj))))
4
2143
2197
限制会员
114
1万
中流砥柱
本版积分规则 发表回复 回帖后跳转到最后一页
微信公众平台
扫描访问手机版
点击图片下载手机App
|关于我们|小黑屋|乐筑天下 繁体中文
GMT+8, 2025-3-12 01:07 , Processed in 0.978828 second(s), 68 queries .
© 2020-2025 乐筑天下
在线时间:10:00-17:00
暂无
扫一扫,关注我们
帮助中心
关于我们
下载APP客户端