13648893846 发表于 2018-8-13 22:51:40

点表创建实心填充

;;[功能]点表创建实心填充
;;[用法]用法(LC:entmake-HTCH PTlst Layname)
;;[用法]用法(LC:entmake-HTCH (LC-lst-delsame1 (LC-WH-vxs (car (entsel"\n 请选择要填充的范围线："))) 0.001)(getstring "\n 请输入填充后图层名："))
;;[作者]BY 老仓测绘上班记
(defun LC:entmake-HTCH (PTLST LAYNAME / LST)
   (setq lst (append(list
       '(0 . "HATCH")
   '(100 . "AcDbEntity")
   '(67 . 0)
   '(410 . "Model")
   (cons 8 Layname)
   '(100 . "AcDbHatch")
   '(10 0.0 0.0 0.0)
   '(210 0.0 0.0 1.0)
   '(2 . "SOLID");实心填充
   '(70 . 1)
   '(71 . 0)
   '(91 . 1)
   '(92 . 3)
   '(72 . 0)
   '(73 . 1)
   (cons 93 (length ptlst))
   
   )
      (mapcar '(lambda(x)(cons 10 x)) ptlst)
      (list'(97 . 0)
   '(75 . 0)
   '(76 . 1)
   '(98 . 0))
)
)      
(entmake lst)
)

young-yi 发表于 2018-8-14 07:08:47

学习了谢谢分享
页: [1]
查看完整版本: 点表创建实心填充