hadessna 发表于 2020-4-20 21:56:37

可不可以绘图的同时填充？

比如说绘制一个矩形的同时内部填充了图案？

sharetow 发表于 2020-4-21 15:37:05

(defun c:hh(/ aa t1 t2 t3 t4)
(LL:TuC "Hat" 8 "Continuous" "0.05")
(setq
    aa (getpoint "\n选择插入基点 :")
    t1 (getdist "\n输入长度 :")
    t2 (getdist "\n输入高度 :")
    t3 (list (car aa)(+ (cadr aa) (/ t2 2)))
    t4 (list (+ (car aa) t1)(- (cadr aa) (/ t2 2)))
)
(command "_RECTANG" t3 t4)
(command "Chprop" (entlast) "" "LA" "Hat" "")
(princ)
)

hadessna 发表于 2020-4-21 00:33:19

Andyhon 发表于 2020-4-20 22:14
初学程序的话
可先学将命令列的执行步骤
转化为Lisp的叙述句


我想学的，但是不知如何入手。cad的lisp帮助文件是全英文的，论坛里的Visual LISP开发者宝典在第二章我就蒙了
(defun C:SHOWLAYER (/ ent lay)
(if (setq ent (entsel "\n选择对象以查看其图层名: "))
    (alert
      (strcat "图层名: "
       (vla-get-layer (vlax-ename->vla-object (car ent)))
      )
    )
)
(princ)
)
拆开字母都看懂了，连起来就懵逼了。

灰石Jeremy 发表于 2020-4-21 14:46:01

hadessna 发表于 2020-4-21 00:33
我想学的，但是不知如何入手。cad的lisp帮助文件是全英文的，论坛里的Visual LISP开发者宝典在第二章我就 ...

没有编程基础上手的确有点困难，可以选择基础的lisp书籍一步步来，先从点画线这些开始

Andyhon 发表于 2020-4-20 22:14:53

初学程序的话
可先学将命令列的执行步骤
转化为Lisp的叙述句

如所提即是先Rectangle再Hatch合并

论坛中有许许多多的参考资料

可先从画圆入手...

cq4920 发表于 2020-4-21 20:10:12


paulpipi 发表于 2020-4-21 20:55:55

hadessna 发表于 2020-4-27 09:35:13

sharetow 发表于 2020-4-21 15:37


错误: no function definition: LL:TUC
谢谢回复~~~~

hadessna 发表于 2020-4-27 09:36:20

灰石Jeremy 发表于 2020-4-21 14:46
没有编程基础上手的确有点困难，可以选择基础的lisp书籍一步步来，先从点画线这些开始

有书籍介绍么？~~~

edata 发表于 2020-4-27 20:38:32

可以试试看这个,实际上lisp相关的资料还是很多的,论坛搜一搜一大堆.
http://bbs.mjtd.com/thread-83729-1-1.html

页: [1] 2
查看完整版本: 可不可以绘图的同时填充？