孙玉坤 发表于 2017-10-13 04:27:17

求一个 特定层拉伸的 lsp

本帖最后由 孙玉坤 于 2017-10-13 17:37 编辑

   我只想拉伸白色线图层，其他层的选择不到。。支持直线段段线可以框选，谢谢大神

xyp1964 发表于 2017-10-13 17:54:44

(defun c:tt ()
(setq s1 (car (entsel "\n选择拉伸源样板: ")))
(setq cln (getvar "clayer"))
(setvar "clayer" (cdr (assoc 8 (entget s1))))
(command "-layer" "f" "*" "")
(command ".stretch" "c" pause pause "" pause pause)
(command "-layer" "t" "*" "")
(setvar "clayer" cln)
(command "regen")
(princ)
)

孙玉坤 发表于 2017-10-13 10:07:39

(defun c:tt ()
(setvar "CMCECHO" 0)
(setq cln (getvar "CLAYER"))
(setvar "CLAYER" "017划线")
(command "-LAYER" "F" "*" "")
(command ".STRETCH" PAUSE PAUSE PAUSE)
(command "-LAYER" "T" "*" "")
(setvar "CLAYER" cln)
(setvar "CMDECHO" 1)
(princ)
)

孙玉坤 发表于 2017-10-13 10:07:27

孙玉坤 发表于 2017-10-13 10:05
想用lisp写个代码   但是不会大神可能帮个忙

在群里下载的一个   但是提示错误: AutoCAD 变量设置被拒绝: "CMCECHO" 0大神可能给修改一下

xinxirong 发表于 2017-10-13 07:22:36

两个思路：1隐藏其它图层，2用arx的getstretchpoint

孙玉坤 发表于 2017-10-13 10:05:10

xinxirong 发表于 2017-10-13 07:22
两个思路：1隐藏其它图层，2用arx的getstretchpoint

想用lisp写个代码   但是不会大神可能帮个忙:lol

Linhay 发表于 2017-10-13 15:48:14

CMDECHO               

孙玉坤 发表于 2017-10-13 17:26:52

RE: 求一个 特定层拉伸的 lsp

Linhay 发表于 2017-10-13 15:48
CMDECHO

这是个系统变量吗我对lisp一点不懂但工作中需要这个功能，望大师们帮忙给写一个，万分感谢

逍遥天下 发表于 2017-10-13 19:10:00

院长厉害啊，对我有用，顶顶顶

孙玉坤 发表于 2017-10-13 19:49:25

xyp1964 发表于 2017-10-13 17:54
(defun c:tt ()
(setq s1 (car (entsel "\n选择拉伸源样板: ")))
(setq cln (getvar "clayer"))


非常感谢，大神的相助
页: [1] 2
查看完整版本: 求一个 特定层拉伸的 lsp