2013-07-07 明经 AutoLISP 编程(102918348) 群聊记录：(defun c:cc ();列出多义线顶点 (setq nlist n

明经快报

[金光]金光 12:00:06

(defun c:cc () 
 (vl-load-com)
 (setq dist -100)
 (setq ss1 (ssget "X" '((0 . "*line") (8 . "beam,edote"))))
 (setq hl (ssget '((0 . "*line") (8 . "红线"))))
 (setq s_en (ssname hl 0))
 (setq en (vl-catch-all-apply 'vla-offset (list (vlax-ename->vla-object s_en) dist)))
 (setq pts nil)
 (setq ent (entget(car en)))
 (if (and
       (= (cdr(assoc 0 ent)) "LWPOLYLINE")
       (= (cdr(assoc 70 ent)) 1)
      ) (progn
  (foreach x ent (if (= (car x) 10)(setq pts (cons (cdr x) pts))))
  (reverse pts)
  (Princ pts)
  (setq pts (mapcar '(lambda (x) (trans x 0 1)) pts))
  (setq ss2 (ssget "WP" pts '((0 . "*line") (8 . "beam,edote"))))
 ))
(command "_.select" ss1 "remove" ss2 "")
(setq ss3 (ssget "p"))
(command "erase" ss3 "")
(command "erase" en "")
(princ)
)

明经快报

[清风明月名字] 14:11:14

请问，下面代码在STACAT句上怎么通不过啊？
(setq QQ (ssget "X" (list (cons 0  "TEXT") (cons 1  (strcat "*" 过滤用的字符 "*")))))
“过滤用的字符”是一个字符变量

[lisp-study]jun 14:13:42

检查“过滤用的字符”的数据类型

[清风明月名字] 14:15:39

( setq 过滤用的字符 (atof (getstring "过滤用的字符")) )

[vormittag]桔子 14:15:58

[清风明月名字] 14:18:51

可以了，谢谢“[lisp-study]jun(410909687)  14:13:56
”

[清风明月名字] 14:23:57

怎么能做到我按一个空格，它就跳动到选择集中的第二个里面去呢？

[lisp-study]jun 14:25:23

grread

明经快报

[AMKYUD][AMKYUD]??? 14:49:00

中国的两个90后mm遇难了
韩亚航空事故  从上海经过首尔前往美国
这么年轻的生命就这样没有了

[LC100]建筑设计 14:50:05

雷锋那时候更年轻罗

但是现在又有几个90后认识雷锋

[vormittag]桔子 14:51:11

政治宣传出来的人物，不知道也不是坏事。

[AMKYUD][AMKYUD]??? 14:52:48

1+

明经快报

[236004]张牙舞爪 15:29:59

命令: (command "insert" SingleFiler "0,0" "" "" "")
块 605.6-497.5 参照本身

遇到这个问题，怎么解决？

明经快报

[金光]金光 15:44:45

强悍 自己写了那么多插件

明经快报

[dcl1214]昌立 17:14:15

[qqimg]201307/{01A4CA23-6243-9EA7-72A3-3D131A5EFFB5}.jpg[/qqimg]

谁知道这是什么字体

明经快报

[caoyin][caoyin] 17:30:37

综艺体

[dcl1214]昌立 17:30:48

谢谢

cad好像没看到

[caoyin][caoyin] 17:32:15

ttf字体是安装在windowsfonts目录下的，跟cad没关系

[dcl1214]昌立 17:32:30

哦

明经快报

[LC100]建筑设计 19:32:11

关闭当前层，有没有变量控制不提示那个“是”的啊

[286168051]勤龙 19:32:54

不用command

[LC100]建筑设计 19:33:13

直接点那里吗？

[LC100]建筑设计 19:33:51

不用command怎么搞，请教一下

[286168051]勤龙 19:34:07

==

[LC100]建筑设计 19:34:20

5

现在在搞一下关闭其它，跟关闭图层的功能

[286168051]勤龙 19:39:51

(defun c:lay()
  (setq clay(getvar "clayer"))
  (setq en(tblobjname "layer" clay))
  (setq ent(entget en))
  (setq bs(-(cdr(assoc 62 ent))))
  (if(< bs 0)
    (progn
  (setq ent(subst(cons 62 bs )(assoc 62 ent)ent))))
  
  (entmod ent)
  (princ)
  )

这个就行了

操作图层图元

就解决了

[LC100]建筑设计 19:40:59

不行啊

[caoyin][caoyin] 19:41:54

(vla-put-layeron
(vla-item
(vla-get-layers
(vla-get-ActiveDocument
(vlax-get-acad-object)))
 (vla-get-layer
   (vlax-ename->vla-object(car(entsel)))
 )
)
:VLAX-FALSE
)

[LC100]建筑设计 19:42:34

太复杂了

[kwok][ww5w]行舟月下 19:48:10

(setvar "Expert" 1)关闭当前层

[LC100]建筑设计 19:48:25

搞定了

[LC100]建筑设计 19:53:20

谢谢你啦

[xiaomm250][lisp](car (entsel)) 20:00:12

如何快速发现lisp的代码的语法错误(比如一个函数只有一个参数,但是却弄成了两个)

[LC100]建筑设计 20:08:22

检查

[xiaomm250][lisp](car (entsel)) 20:08:57

我需要快速的办法

[LC100]建筑设计 20:09:06

[qqimg]201307/{73C4E46D-DECF-E78D-48B3-86967B2A90DD}.jpg[/qqimg]

[xiaomm250][lisp](car (entsel)) 20:09:08

而不是人肉的办法检查

[LC100]建筑设计 20:09:28

我没说过人肉啊

[xiaomm250][lisp](car (entsel)) 20:09:46

没用,虽然检查完成了,但是还有错误

[LC100]建筑设计 20:10:30

那就无能为能了，那种如你套错了变量，那些只能人功检查

程序只会帮你检查语法上的错误。

你自己套错变更的，程序怎么可能帮你检测的出来呢。

你不是一边写程序，一边测试的么。

[kwok][ww5w]行舟月下 20:11:32

加断点，错误跟踪,

[kwok][ww5w]行舟月下 20:12:10

出错中断

[xiaomm250][lisp](car (entsel)) 20:12:44

关键是有错误连断点设置了没用

要是能运行用断点还不错

关键不能运行

郁闷

[LC100]建筑设计 20:17:02

好长代码么，发来看看。

[xiaomm250][lisp](car (entsel)) 20:18:23

(setq ss2 (ssget "CP" plist (list (cons 0 "TEXT")(cons 1 "123"))))  这句有错误?

[LC100]建筑设计 20:20:06

数字不用加 "",除非是文本

[xiaomm250][lisp](car (entsel)) 20:24:59

那能断定在哪一行有语法错误吗

[xiaomm250][lisp](car (entsel)) 20:25:38

[qqimg]201307/{943A3331-4F89-A954-80A1-0E9D5DB06E45}.jpg[/qqimg]

关键我都不知道哪一行有错误

不告诉我的话,等于白检查了

lisp真是的

[kwok][ww5w]行舟月下 20:26:11

表示少一括号

[LC100]建筑设计 20:27:29

双击这个问题，就跳过了

[xiaomm250][lisp](car (entsel)) 20:28:10

谢谢大哥

[LC100]建筑设计 20:30:15

隐藏对象

[xiaomm250][lisp](car (entsel)) 20:30:39

隐藏对象 是什么?

[LC100]建筑设计 20:30:58

发错了

就是  隐藏不想看到的东西。

但不同于关闭

有时东西过多，挡住视线了，就隐藏

明经快报

[LC100]建筑设计 20:55:05

参数错误类型lselsetp

这个是什么意思？在06上没提示，在08上就有这个提示了。

明经快报

[286168051]勤龙 21:44:04

没选中