2013-08-10 QQ群：ALISP＆VLISP(143438137) 聊天记录：请教一个问题，如何在CAD中批量插入块

CCarch · 发表于 2013-8-10 17:26:01

我们168(460112400)于2013-08-10 17-26-01：
看看我这有什么问题

CCarch · 发表于 2013-8-10 17:26:04

我们168(460112400)于2013-08-10 17-26-04：
怎么不能运行

炫翔 · 发表于 2013-8-10 17:27:11

炫翔(2363673534)于2013-08-10 17-27-11：
(entsel) ===(CAR (entsel ))

rjtiantian · 发表于 2013-8-10 17:27:56

One Is All(12486872)于2013-08-10 17-27-56：
entsel==返回的是（图元名坐标点）

CCarch · 发表于 2013-8-10 17:28:45

我们168(460112400)于2013-08-10 17-28-45：
还是不行

CCarch · 发表于 2013-8-10 17:28:47

我们168(460112400)于2013-08-10 17-28-47：
(defun C:JDJ()
  (setvar "cmdecho" 0)
  (setq val1  (getreal (strcat "\n请输入第一个倒角距离("(rtos 300.0  2  1) " ): " )))
  (setq val2  (getreal (strcat "\n请输入第二个倒角距离("(rtos 300.0  2  1) " ): " )))
  (setq en1 (car(entsel "\n选取第一条线: ")))
  (setq en2  (car(entsel "\n选取第二条线: ")))
(command "CHAMFER" "D" val1 val2  en1 ""  en2 "")
(prin1)
)

CCarch · 发表于 2013-8-10 17:28:55

我们168(460112400)于2013-08-10 17-28-55：
还是不行

CCarch · 发表于 2013-8-10 17:29:26

我们168(460112400)于2013-08-10 17-29-26：
还是不行

孔即是涩 · 发表于 2013-8-10 17:32:16

无动于衷(460826125)于2013-08-10 17-32-16：
[qqimg]{91B1CC68-6DB8-B4B6-7255-31E02228F2FC}.jpg[/qqimg] 脱裤子放屁咩？

孔即是涩 · 发表于 2013-8-10 17:32:50

无动于衷(460826125)于2013-08-10 17-32-50：
[face3.gif]

CCarch · 发表于 2013-8-10 17:32:51

我们168(460112400)于2013-08-10 17-32-51：
那不是问题

CCarch · 发表于 2013-8-10 17:33:01

我们168(460112400)于2013-08-10 17-33-01：
不是那的问题

孔即是涩 · 发表于 2013-8-10 17:33:09

无动于衷(460826125)于2013-08-10 17-33-09：
知道不是问题啊就是看到脱裤子了

CCarch · 发表于 2013-8-10 17:33:27

我们168(460112400)于2013-08-10 17-33-27：
您帮忙优化下好吗

炫翔 · 发表于 2013-8-10 17:34:06

炫翔(2363673534)于2013-08-10 17-34-06：
(defun c:XX()
(setq len (getreal "输入倒角距离:"))
(command "chamfer" "d" len len)
(command "chamfer" pause)
(princ))

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