求一个特定层拉伸的 lsp

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

本帖最后由孙玉坤于 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 写个代码但是不会大神可能帮个忙

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

CMDECHO

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

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"))

非常感谢，大神的相助

账号		自动登录	找回密码
密码			注册

[源码] 求一个特定层拉伸的 lsp

本帖子中包含更多资源

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

浏览过的版块

[源码] 求一个 特定层拉伸的 lsp

本帖子中包含更多资源

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

浏览过的版块

[源码] 求一个特定层拉伸的 lsp

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