2013-05-21 QQ群：ALISP＆VLISP(143438137) 聊天记录：说说怎么画，想要什么

ysq101

平凡  淡定(120389613)于2013-05-21 15-15-13：
无神论者叫你去S！！！发这垃圾。。。

ysq101

平凡  淡定(120389613)于2013-05-21 15-16-36：
汗！！！这么严重？

炫翔

炫翔(2363673534)于2013-05-21 15-19-08：
谢绝没有一点营养的玩意

ysq101

平凡  淡定(120389613)于2013-05-21 15-20-19：
[face27.gif]

CCarch

真爱一生(848758009)于2013-05-21 15-21-01：
[face27.gif]

炫翔

炫翔(2363673534)于2013-05-21 15-21-07：
[qqimg]{BF9FBCA0-9374-1D5F-35D4-C46729F6C39B}.gif[/qqimg]

炫翔

炫翔(2363673534)于2013-05-21 15-21-30：
;4.剔除表元素
;By 无痕


;| (x:removeat at lst ) = 表剔除元素;-------------无痕.2004.1
;提示; 等同于: (vl-remove  element-to-remove  list)
  (x:removeat "a" '(58 3 (a . 8) "a" 4.5)) -> (58 3 (A . 8) 4.5)
|;
(defun x:removeat (at lst) ;at=atom
   (apply 'append (subst nil (list at) (mapcar 'list lst)))
)

CCarch

真爱一生(848758009)于2013-05-21 15-24-13：
学习了

CCarch

真爱一生(848758009)于2013-05-21 16-01-00：
;取线的,,
(DEFUN xl-3p (/ ps pe pm)
  (setq en (cdr (assoc -1 (entget (car (entsel))))))
  (setq e (vlax-ename->vla-object en))
  (setq        ps (vlax-curve-getstartparam e)
        pe (vlax-curve-getendparam e)
        pm (/ (- pe ps) 2)
  )
  (mapcar 'vlax-curve-getpointatparam
          (list e e e)
          (list ps pm pe)
  )

)

炫翔

炫翔(2363673534)于2013-05-21 16-01-34：
[qqimg]{1D7EC5AE-0AFA-57DD-8929-00B65DFA7FC7}.gif[/qqimg]

炫翔

炫翔(2363673534)于2013-05-21 16-02-52：
vlax-curve 类是不需要转成VLA的

炫翔

炫翔(2363673534)于2013-05-21 16-03-41：
http://www.xdcad.net/forum/thread-668240-1-1.html

已经有个回复，欢迎大家前去参与

炫翔

炫翔(2363673534)于2013-05-21 16-04-33：
圆弧的应该没这么简单

炫翔

炫翔(2363673534)于2013-05-21 16-04-57：
大家先去练练手 晚些我会回复他  答案

CCarch

真爱一生(848758009)于2013-05-21 16-06-35：
ok