改线型比例的代码，高手帮我看看

lucas3 · 发表于 2014-1-6 23:18:35

Free-Lancer 发表于 2014-1-6 22:59

大师，缺fy:begin 函数啊

Free-Lancer · 发表于 2014-1-6 23:30:02

lucas3 发表于 2014-1-6 23:18
大师，缺fy:begin 函数啊

以前发过的

lucas3 · 发表于 2014-1-6 23:36:08

Free-Lancer 发表于 2014-1-6 23:30
以前发过的

大师，这个app.fas 都包含哪些函数啊？虽然是可以用了，效果也达到了，可是还要加载这个app.fas，有点得不偿失啊

st788796 · 发表于 2014-1-7 00:26:50

lucas3 发表于 2014-1-6 23:36
大师，这个app.fas 都包含哪些函数啊？虽然是可以用了，效果也达到了，可是还要加载这个app.fas，有点得 ...

有所得必有所失，你觉得得不偿失就不用

zxq0220 · 发表于 2014-1-7 07:58:52

沙发又改了……

lucas3 · 发表于 2014-1-7 08:22:05

zxq0220 发表于 2014-1-7 07:58
沙发又改了……

大师，不好意思，还是有问题，错误: 参数类型错误: numberp: nil

zxq0220 · 发表于 2014-1-7 08:38:41

lucas3 发表于 2014-1-7 08:22
大师，不好意思，还是有问题，错误: 参数类型错误: numberp: nil

我这里没错呀。

st788796 · 发表于 2014-1-7 09:08:40

可以这样写

(defun c:tt (/ ss i el show l)
(if (and (setq ss (ssget '((0 . "*LINE"))))
(progn
(setq i -1)
(repeat (sslength ss)
(setq el (cons (entget (ssname ss (setq i (1+ i)))) el))
)
(if
(apply '= (mapcar '(lambda (x) (cdr (assoc 48 x))) el))
(setq show "多种")
(setq
show (vl-princ-to-string (cdr (assoc 48 (car el))))
)
)
t
)
(setq
l (getdist (strcat "\n 请输入新的线型比例<" show "> :"))
)
)
(mapcar '(lambda (x)
(entmod (subst (cons 48 l)
(assoc 48 x)
x
)
)
)
el
)
)
(princ)
)

(defun c:tt (/ ss i el show l) 
  (if (and (setq ss (ssget '((0 . "*LINE")))) 
           (progn 
             (setq i -1) 
             (repeat (sslength ss) 
               (setq el (cons (entget (ssname ss (setq i (1+ i)))) el)) 
             ) 
             (if 
               (apply '= (mapcar '(lambda (x) (cdr (assoc 48 x))) el)) 
                (setq show "多种") 
                (setq 
                  show (vl-princ-to-string (cdr (assoc 48 (car el)))) 
                ) 
             ) 
             t 
           ) 
           (setq 
             l (getdist (strcat "\n 请输入新的线型比例<" show "> :")) 
           ) 
      ) 
    (mapcar '(lambda (x) 
               (entmod (subst (cons 48 l) 
                              (assoc 48 x) 
                              x 
                       ) 
               ) 
             ) 
            el 
    ) 
  ) 
  (princ) 
)

lucas3 · 发表于 2014-1-7 09:52:45

st788796 发表于 2014-1-7 09:08
可以这样写

选择单独的一条线时也这样显示 “请输入新的线型比例<多种> : 更有问题的是改不了线型比例，就是无论输什么值，线型比例一直是1.0 ，我现在用CAD2014测试的

lucas3 · 发表于 2014-1-7 09:55:13

zxq0220 发表于 2014-1-7 08:38
我这里没错呀。

我用CAD2014测试，选择对象后按下空格，就出现：错误: 参数类型错误: numberp: nil

st788796 · 发表于 2014-1-7 10:10:59

lucas3 发表于 2014-1-7 09:55
我用CAD2014测试，选择对象后按下空格，就出现：错误: 参数类型错误: numberp: nil

默认比例是没有 48 组码的，修改一下即可
后面的 subst 用 append 替换
前面的判断没有48时全部为 nil

lucas3 · 发表于 2014-1-7 15:11:38

st788796 发表于 2014-1-7 10:10
默认比例是没有 48 组码的，修改一下即可
后面的 subst 用 append 替换
前面的判断没有48时全部为 nil
...

不懂，大师为啥不更新一下代码呢？

st788796 · 发表于 2014-1-7 15:38:04

lucas3 发表于 2014-1-7 15:11
不懂，大师为啥不更新一下代码呢？

你难道一点不会？

lucas3 · 发表于 2014-1-7 15:47:19

st788796 发表于 2014-1-7 15:38
你难道一点不会？

这里面的fy:begin 与 (fy:end)函数能帮我提供么？长老？

st788796 · 发表于 2014-1-7 15:58:06

lucas3 发表于 2014-1-7 15:47
这里面的fy:begin 与 (fy:end)函数能帮我提供么？长老？

你可以把fas编译到自己的vlx中

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

[求助] 改线型比例的代码，高手帮我看看

点评

点评

点评